'IN frmMain
'Beispiel : Test ob die linke, rechte oder mittlere Maustaste gedrueckt wurde.
 
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
    Dim blSuccess As Boolean
    Select Case Index
        Case Is = 0: blSuccess = IsMouseButtonDown(0)
                     If blSuccess Then
                        Label3 = blSuccess & " Linke Maustaste wurde" & _
                          "gedrückt..."
                     Else
                        Label3 = blSuccess
                     End If
        Case Is = 1: blSuccess = IsMouseButtonDown(1)
                     If blSuccess Then
                        Label3 = blSuccess & " Rechte Maustaste wurde" & _
                          "gedrückt..."
                     Else
                        Label3 = blSuccess
                     End If
        Case Is = 2: blSuccess = IsMouseButtonDown(2)
                     If blSuccess Then
                        Label3 = blSuccess & " Mittlere Maustaste wurde" & _
                          "gedrückt..."
                     Else
                        Label3 = blSuccess
                     End If
    End Select
End Sub
 
'IN modIsMouseButtonPressed
Private Declare Function GetKeyState Lib "user32" _
                            (ByVal nVirtKey As Long) _
                            As Integer
 
Public Function IsMouseButtonDown(ByVal nIndex As Integer) As Boolean
    Select Case nIndex
        Case 0  'Linke Maustaste
                IsMouseButtonDown = CBool(GetKeyState(vbKeyLButton) < 0)
        Case 1  'Rechte Maustaste
                IsMouseButtonDown = CBool(GetKeyState(vbKeyRButton) < 0)
        Case 2  'Mittlere Maustaste
                IsMouseButtonDown = CBool(GetKeyState(vbKeyMButton) < 0)
        Case Else
            '
    End Select
End Function