[VB6] ListView

[oregon]

Intendevo così

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Dim i As Long
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Checked = False
    Next i
    Item.Checked = True
End Sub