Private Sub ListView1_SelectedIndexChanged(...) Handles _
  ListView1.SelectedIndexChanged
    Dim lviSelectedItem As ListViewItem
    For Each lviSelectedItem In Me.ListView1.SelectedItems
      lviSelectedItem.Selected = False
    Next
    Me.ListView1.Select()
  End Sub