[VB6] Eliminare item in un controllo ListBox

[Magicolotto]

ho provato cosi :

Dim i As Integer
For i = 0 To List1.ListCount - 1 Step -1
If List1.Selected(i) = True Then
List1.RemoveItem i
End If
Next i

pero' non succede nulla