Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. Check the mouse button in MouseDown event action listener
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single) 
    If Button = 1 Then ' acLeftButton 
        MsgBox "You pressed the left button." 
    ElseIf Button = 2 Then 'acRightButton 
        MsgBox "You pressed the right button." 
    ElseIf Button = 4 Then 'acMiddleButton 
        MsgBox "You pressed the middle button." 
    End If 
End Sub