Private colSelected As Collection
 
 
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
Dim itm As ListItem
Set itm = ListView1.HitTest(x, y)
If Not (itm Is Nothing) Then
If (itm.Selected = False) Then
itm.Selected = True 'Not itm.Selected
Else
itm.Selected = False 'Not itm.Selected
End If
End If
Set colSelected = New Collection
For Each itm In ListView1.ListItems
If itm.Selected Then
colSelected.Add itm
End If
Next
End Sub
 
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
Dim itm As ListItem
For Each itm In colSelected
itm.Selected = True
Next
End Sub