Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ListView1.View = View.Details
        ListView1.AllowDrop = True
 
    End Sub
 
    Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
 
        e.Effect = DragDropEffects.All
        Debug.Print("DragEnter")
 
    End Sub
End Class