Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
            Me.ListView1.AllowDrop = True
 End Sub
 
Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
    End Sub
 
 
Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim MyFiles As String
               MyFiles = e.Data.GetData(DataFormats.FileDrop)
            Me.ListView1.Items.Add(MyFiles)
        End If