Tesseract

' per evitare l'errore "collection has been modified" nella cancellazione di un elemento da una ListView si deve procedere con la cancellazione medesima a partire dal fondo della lista

Dim lngIndex   As Long
    For lngIndex = lvw.ListItems.Count To 1 Step -1
        If lvw.ListItems.Item(lngIndex).Selected = True Then
            lvw.ListItems.Remove lngIndex
        End If
Next lngIndex