Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
        If e.Button = MouseButtons.Left Then
            ' LinksKlick
        ElseIf e.Button = MouseButtons.Right Then
            ' RechtsKlick
        End If
    End Sub