listboxes, removing....

I need to remove more than one item from a list box...

here is the code

Private Sub Command1_Click()
ff = FreeFile
Open "c:\windows\desktop\list\list.txt" For Input As #ff
Do Until EOF(ff)
Input #ff, this
List1.AddItem (this)
Loop
Close #ff
End Sub

Private Sub Command2_Click()
'On Error GoTo that
'List1.RemoveItem List1.ListIndex
'Exit Sub
If List1.SelCount > 1 Then
Do Until List1.SelCount = 0
List1.RemoveItem List1.ListIndex

Loop
ElseIf List1.SelCount = 1 Then
List1.RemoveItem List1.ListIndex
ElseIf List1.SelCount = 0 Then
Exit Sub
End If
'that: MsgBox (Err.Description)


End Sub

ignore the comments, those were pieces of code I thoought about using..
this code works fine and dandy for removeing single items, and removing items that are right next to eachother, but if there is an item in between two selected items, it gets deleted also, please help me.
thank you
Dennis Wrenn

[kedaman]

Thats an indirect way of doing it, try this instead:

Dim n%
For n = 0 To List1.ListCount - 1
 If List1.Selected(n) Then List1.RemoveItem n: n = n - 1
Next n

runtime error 381
invalid property array index



and what does the % do?

[kedaman]

[/code]
Dim n%
For n = 0 To List1.ListCount - 1
If n >= List1.ListCount Then Exit Sub
If List1.Selected(n) Then List1.RemoveItem n: n = n - 1:
Next n
[code]
the % is instead of "as integer"

it works,
thank you SOOOOO much...
[/code]
thanks again