Vælge mouseklik 1 eller 2??

Der er konstanter benævnt vbxxxx, brug dem

F.eks. Button=vbRightButton ' Højre knap, naturligvis...

Prøv dig frem med denne lille demo :-)

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseButton As String
Dim MouseShift As String

  Select Case Button
        Case 1
          MouseButton = "[MOUSE LEFT]"
        Case 2
          MouseButton = "[MOUSE RIGHT]"
        Case 4
          MouseButton = "[MOUSE MIDDLE]"
  End Select

  Select Case Shift
        Case 1
          MouseShift = "+[SHIFT]"
        Case 2
          MouseShift = "+[CTRL]"
        Case 4
          MouseShift = "+[ALT]"
        Case 6
          MouseShift = "+[ALT GR]"
  End Select

  MsgBox MouseButton & MouseShift
End Sub