Private Sub list1_OLEDragDrop(Data As DataObject, _
  Effect As Long, Button As Integer, _
  Shift As Integer, X As Single, Y As Single) 'Test für DRAG UND DROP für 
  ' Schredder
 
  Dim I As Integer
 
  ' Prüfen, ob es sich um eine Datei handelt
  If Data.GetFormat(vbCFFiles) Then
    ' alle Dateien (1 bis Files.Count)
    For I = 1 To Data.Files.Count
      ' Dateiname der Listbox hinzufügen
      List1.AddItem Data.Files(I)
    Next I
  End If
End Sub