vb中listview选中高亮去掉

Private Sub ListView1_ItemSelectionChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
If Not IsNothing(ListView1.SelectedItems) Then
If ListView1.Items.Count > 0 Then
For i = 0 To ListView1.Items.Count - 1
ListView1.Items(i).BackColor = SystemColors.Window
Next
End If
'设定自己的颜色，去除选中。即可达到去除高亮功能。
e.Item.BackColor = Color.AliceBlue
e.Item.Selected = False
End If
End Sub