MouseMove,
MouseDown and MouseUp Events
Lets check out the
Command Button's MouseMove,
MouseDown and MouseUp events.
We will do
that like we've done before,
by inserting different Print commands to
every event.
Copy the following code to your program:
Private
Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Print "MouseDown"
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Print "MouseMove"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Print "MouseUp"
End Sub