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 |