Private Sub Command1_Click()
  Dim OldListIndex As Long
 
  ' Wenn keine Elemente enthalten oder
  ' wenn nichts makriert, nichts tun
  If List1.ListCount = 0 Or List1.ListIndex = -1 Then Exit Sub
 
  ' Aktuell markierten Wert merken und entfernen
  OldListIndex = List1.ListIndex
  List1.RemoveItem List1.ListIndex
 
  ' Fehlervermeidung wenn Eintrag am Ende der Liste markiert ist
  If OldListIndex >= List1.ListCount Then
    OldListIndex = OldListIndex - 1
  End If
 
  ' nächsten Wert markieren
   List1.ListIndex = OldListIndex
End Sub

Gruß
Marcus