Schon macht man es richtig funktioniert es !

Private Sub btn_MouseDown(sender As Object, 
                           e As MouseEventArgs) Handles btn.MouseDown
 
    If e.Button = MouseButtons.Left Then
        'Linke Taste gedrückt
    End If
 
 
    'Oder als Select Case
    Select Case e.Button
      Case MouseButtons.Left
          MsgBox("Links")
      Case MouseButtons.Right
          MsgBox("rechts")
      Case Else
          MsgBox("xxxx")
    End Select
 
End Sub

Schon macht man es richtig funktioniert es !