Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As _
  MouseEventArgs) Handles ListBox1.MouseClick
  If (e.Button = Windows.Forms.MouseButtons.Right) Then
    ' Hier dein Code...      
  End If
End Sub

Ralf