|
'per una listView con la proprietà Multiselect NON impostata If Not ListView1.SelectedItem Is Nothing Then ListView1.SelectedItem.Selected = False Set ListView1.SelectedItem = Nothing End If
'per una listView con la proprietà Multiselect IMPOSTATA Dim itm As ListItem If Not ListView1.SelectedItem Is Nothing Then
For Each itm In ListView1.ListItems itm.Selected = False Next
End If |