Private Sub ListView_DragEnter(ByVal sender As System.Object, ByVal e As _
       System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
        e.Effect = DragDropEffects.Copy
        Dim f As frmMDIChild = DirectCast(DirectCast(sender, _
          ListView).FindForm, frmMDIChild)
        Debug.WriteLine(f.Name)
    End Sub