Private Sub ListView1_DragOver(ByVal sender As Object, ByVal e As _
       System.Windows.Forms.DragEventArgs) Handles ListView1.DragOver
        Dim pt As Point = Me.ListView1.PointToClient(New Point(e.X, e.Y))
        Dim lvi As ListViewItem = Me.ListView1.GetItemAt(pt.X, pt.Y)
        If lvi Is Nothing Then Debug.WriteLine(lvi Is Nothing) : Return
        Debug.WriteLine(lvi.Text)
    End Sub