Por que pierdo los items? ListView

Alex
03 de Enero del 2004
Private Sub tcpServer_Close(Index As Integer)

For i = ListView.ListItems.Count To 1 Step -1
'si está seleccionado
If ListView.ListItems(i).Selected Then
' lo borramos
ListView.ListItems.Remove i
End If
Next

End Sub