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