Private Sub form_Load(sender As System.Object, e As System.EventArgs) Handles _
  MyBase.Load
 
        ' Drag & Drop sowohl für die Listboxen (d.h. die Items) 
        ' als auch die Form (die Controls) aktivieren
        lstBox1.AllowDrop = True
        lstBox2.AllowDrop = True
        Me.AllowDrop = True
 
        ' Ein paar Testeinträge in die Listbox hinzufügen
        'Dim i As Integer
        'For i = 0 To 5
        'lstBox1.Items.Add(New ListBoxItem(i.ToString, lstBox1))
        'lstBox2.Items.Add(New ListBoxItem(i.ToString, lstBox2))
        'Next
 
        Dim Dateiliste() As String = System.IO.Directory.GetFiles( _
          "C:\Users\blas\Documents\Test", "*.*", _
          System.IO.SearchOption.AllDirectories)
        lstBox1.Items.AddRange(Dateiliste)
 
    End Sub