Prova con questo: a funziona! Ho controllato anche l'evento ItemCheck

codice:
Dim vecchioSelezionato As Integer

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
ListView1.ListItems.Item(vecchioSelezionato).Checked = False
vecchioSelezionato = Item.Index
End Sub

Private Sub listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ListView1.ListItems.Item(vecchioSelezionato).Checked = False
ListView1.SelectedItem.Checked = True
vecchioSelezionato = ListView1.SelectedItem.Index
End Sub