MouseDown, MouseUp Events — Event Procedures Example
The following example shows how you can find out which mouse button caused a MouseDown event.
To try the example, add the following event procedure to a form:
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, _
Y As Single)
If Button = acLeftButton Then
MsgBox "You pressed the left button."
End If
If Button = acRightButton Then
MsgBox "You pressed the right button."
End If
If Button = acMiddleButton Then
MsgBox "You pressed the middle button."
End If
End Sub