Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        Dim f As New System.Collections.Specialized.StringCollection
        Dim d As New DataObject
        d = e.Data
        f = d.GetFileDropList
        For Each s As String In f
            ListBox1.Items.Add(s)
        Next
    End Sub
    Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        e.Effect = DragDropEffects.All
    End Sub

Gru?

Silver