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 = e.Data.GetData(DataFormats.FileDrop)
            For Each curFile As String In myFiles
                Me.ListView1.Items.Add(curFile)
            Next
        End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.