[VB6] Eliminare un Item dal controllo ListView

[multijet]

Buon giorno,
utilizzo il seguente codice per eliminate un item nella list view.Ho 174 item inseriti,ma quando arriva al numero 88 mi da errore:limite per l'indice esaurito.Perche'?

For cont = 1 To ListView3.ListItems.Count 'ListView3.ListItems.Count=174
If ListView3.ListItems.Item(cont).Checked = False Then
ListView3.ListItems.Remove (cont)
End If
Next cont


Grazie