Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
        Dim item As ListViewItem = ListView1.GetItemAt(e.X, e.Y)
        If item IsNot Nothing Then
            ListView1.Invalidate(item.Bounds)
        End If
    End Sub