RemoveItem

Private Sub cmdRemove_Click()
Dim x As Integer
GoTo Fixed
For x = 0 To List1.ListCount - 1
If List1.Selected(x) Then
List1.RemoveItem x
End If
Next x
Fixed:
x = 0
Do While x < List1.ListCount
If List1.Selected(x) Then
List1.RemoveItem x
Else
x = x + 1
End If
Loop
End Sub