Do you mean deleting items in multi-select listboxes??
Code:
Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer
With List1
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then
.RemoveItem (i)
End If
Next
End With
End Sub
it has to go backwards, because... well Its kinda hard to explain, but it just doesnt work right if it doesnt go backwards.
[Edited by denniswrenn on 09-09-2000 at 08:27 PM]