Private Sub ico_btn_OLEDragDrop(Index As Integer, Data As DataObject, _
  Effect As Long, Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 On Error GoTo ExitCase
  Dim I As Integer, L 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
      Dim newprog
      Dim parts, return1&, return2&
      newprog = Data.Files(I)
        Buttons(Index).BtnPath = newprog
        parts = Split(newprog, "\")
        For L = 0 To 20
            Buttons(Index).BtnName = Split(parts(L), ".")(0)
        Next L
ExitCase:
    Ico_Btn(Index).Picture = LoadPicture()
    return1 = ExtractIcon(Me.hWnd, Buttons(Index).BtnPath, 0&)
    return2 = DrawIcon(Ico_Btn(Index).hdc, 0, 0, return1&)
    Ico_Btn(Index).ToolTipText = Buttons(Index).BtnName & " öffnen."
    TOOLS.txt_WriteLine App.Path & "\HBDSettings.ini", Index + 3, newprog
    Next I
  End If
End Sub