MouseWheel Event

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

Page True if the page was changed.

Count    The number of lines by which the view was scrolled with the mouse wheel.

Example

The following example demonstrates the syntax for a subroutine that traps the MouseWheel event.

Private Sub Form_MouseWheel( _
        ByVal Page As Boolean, ByVal Count As Long)
   If Page = True Then
        MsgBox "You've moved to another page."
    End If
End Sub