Private Sub roListBox1_MouseUp(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
  ' PopUp-Menü bei Rechtsklick anzeigen
  If Button = vbRightButton Then
    If roListBox1.ListIndex > 0 Then
      Me.PopupMenu MyPopUp
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de