How do I activate mouse's scrollwheel

[bushmobile]

sorry, i haven't got VB on this computer and can't get access to the code.

From memory it should be something like this:

' On the Form:
Private Sub MouseWheel(...Parameters...)
    '
    ' code
    Select Case blah
        ' Leave the 
        ' Case TypeOf ctl Is TextBox.... one
        ' and the Case Else one - get rid of the others
    End Select
    
    ' Where it has 
    Me.Caption = IIf(... 'or something
    ' either decrease or increase the VScrollBars value according the value of rotation
End Sub

If you post the sub i mentioned above I should be able to help you out more.