How do you make the VScroll1 control respond to mousewheel scrolling?

I can't seem to make the VScroll1 control respond to mousewheel movement.  Any suggestions?  Thnx.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

You need the following small Tool "VBScroll" (Version 1.3.1 - 26 KB)
larrysyAuthor Commented:
Try the following code - 3 controls - Picture 1, Picture2, and VScroll1, Picture2 is inside Picture 1. If you run it, the scrollbar wont respond to a mousewheel scroll.  I need some code which can be included in the compiled .exe.

Private Sub Form_Load()
Picture1.Move 0, 0
Picture2.Move 0, 0
Picture2.Height = Picture1.Height * 2
Picture2.Width = Picture1.Width
Me.Width = Picture1.Width + VScroll1.Width + 150
Me.Height = Picture1.Height + 1000
With VScroll1
   .Top = 0
   .Left = Picture1.Width
   .Height = Picture1.Height
End With
VScroll1.Max = Picture2.Height - Picture1.Height
VScroll1.LargeChange = VScroll1.Max / 10
VScroll1.SmallChange = 100
End Sub

Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
End Sub
Here are a couple samples of how to deal with the WM_MOUSEWHEEL message in VB6:

Adding Scroll Bars to Forms, PictureBoxes and User Controls

How to implement additional support for wheel mice in VB6

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
I checked your sample, larrysy - Only when  running the "intellipoint" software, then it scrolls !

You need the "intellipoint" mouse software (Microsoft). The following picture shows several mouse types:

<img src="">

Download Microsoft's "intellipoint" mouse software:


larrysyAuthor Commented:
Thanks vb_elmar and Erick37, I finally settled on the example.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.