Private Sub ListView1_MouseUp(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  If Not ListView1.SelectedItem Is Nothing And Button = 2 Then
    MsgBox "Rechtsklick auf Eintrag: " & CStr(ListView1.SelectedItem.Index)
  End If
End Sub