Private Sub File1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, _
Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
Dim Quelldatei, Zieldatei
Zieldatei = File1.Path
  ' 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
    'MsgBox Data.Files(i)
    Quelldatei = Data.Files(i)
     FileCopy Quelldatei, Zieldatei
    Next
    End If
End Sub