Visual Basic

Ok, you need to use the API function "SendMessage" (i.e. SendMessageA). I suggest you download the API Guide (Do a search on API Guide on the Internet). The Scrollbar works by sending the WM_VSCROLL message. Now, you'll have to SubClass the Window you want to handle the Wheel Mouse on. You can do this by intercepting the WM_MOUSEWHELL Message. Again, all this is contained in the API Guide. If you need an example of SubClassing, I can help but I don't have a lot of time to explain it. Also, Subclassing is 100 times easier to do in .NET than VB6. After you have the WM_MOUSEWHEEL intercepted, just pass the message for it to scroll Up or Down by passing a "0" or "1" to the LParam of the SendMessage (it's either that or the WParam, can't remember off the top of my head). Call SendMessage(lstBoxHandle, WM_VSCROLL, 1, 0) Call SendMessage(lstBoxHandle, WM_VSCROLL, 0, 0) Not all those who are lost are looking to be found. But of those who are lost and those who are found, all are looking for something higher than themselves.

Hey, thanks for the help a while back! I was wondering if you could maybe send me the ".vb" file as an attachment to my email address. The formatting on this website when I copy and paste is horrendous! Greatly appreciated!

First hit on google... http://www.dotnetextreme.com/articles/writingwindowsservice.asp[^] Paul Watson wrote: "At the end of the day it is what you produce that counts, not how many doctorates you have on the wall." George Carlin wrote: "Don't sweat the petty things, and don't pet the sweaty things."

From what your saying it sounds like the form editor is crashing! I've trawled MSDN for you and found these:- VS.Net Crashes on load Indicates files that can be misinstalled. Installation from DVD Form designer does not work Relates to missing files again. If you don't find the answer in there then you'll have to look for yourself :- Known Bugs in VS.Net

I'm not sure but I think the error message says that it couldn't find RS.Fields("Description"). When you write your select statement you use Product.Description, maybe that have something to do with it. Try this, not so nice, but it works RS.Fields(0) 'Description If you had recieved more info you should write RS.Fields(1) 'Name RS.Fields(2) 'Street //Keder

bad news man, VB6 doesn't support pointers as far as I know. I have read an article somewhere in CP that uses API to get pointers in VB6 but I can't seem to find it again. :( On the list reordering, when an item is clicked in the listbox, you can refer to it by: List1.ListIndex 'this gets the zero based index of the list item OR List1.List(List1.ListIndex) ' this gets the string value of the selected list Notorious SMC The difference between the almost-right word & the right word is a really large matter - it's the difference between the lightning bug and the Lightning Mark Twain Get your facts first, and then you can distort them as much as you please Mark Twain

sorry for lack of detail,and thank you for your time! its vb6, as it stands my code is: Dim strCompany As String Dim strLikeCompany As String strCompany = txtCompany.Text strLikeCompany = strCompany & "*" Dim findSQL As String findSQL = " Select ClientCode, Company, ContactName " & _ " from Client " & _ " Where Company LIKE '" & strLikeCompany & "'" Set RS = Conn.Execute(findSQL) Adodc2.RecordSource = findSQL MsgBox ("Showing Results") Me.Adodc2.Refresh Me.DataGrid1.Refresh but it displays the error "no recordset specified, command text was not set for command object." on loading and it fails to populate grid.