[VB6] Eliminare item in un controllo ListBox

[Magicolotto]

ciao come da titolo uso questo codice :

Dim i As Double

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List1.RemoveItem (i)
End If
Next i

selezione col mause Item e lo elimino




e mi da errore