Option Explicit

Private Sub Form_Load()
  List1.AddItem "Schumacher, Michael - Ferrari"
  List1.AddItem "Schumacher, Ralf - Williams/BMW"
  List1.AddItem "Hakkinen, Mika - McLaren/Mercedes"
  List1.AddItem "Coulthard, David - McLaren/Mercedes"
  List1.AddItem "Frentzen, Harald - Jordan/Honda"
  List1.ListIndex = 1
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
  If Button = 2 Then
    PopupMenu mnuListbox
  End If
End Sub

Private Sub mnuKontextmenü_Click(Index As Integer)
  Dim x as Integer

  Select Case Index
    Case 1
      For x = 0 To List1.ListCount - 1
        If List1.Selected(x) = True Then
          List1.RemoveItem (x)
          Exit For
        End If
      Next
    Case 2
      List1.Clear
  End Select
End Sub