MouseWheel Example for Visual Basic

Private Sub LEADRasterContainerViewer_MouseWheel(ByVal nDelta As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single, ByVal lActionID As Long, ByVal lCount As Long) 
Me.Caption = " Mouse Wheel "
End Sub