XProfan

Def DragAcceptFiles(2) !"SHELL32","DragAcceptFiles"
Declare Filelistbox&
Windowstyle 31
Windowtitle "Listbox mit File Drag and Drop"
Window 0,0-640,440
Let Filelistbox&=@Createlistbox(%HWND,"",20,20,500,300)
@DragAcceptFiles(FileListbox&,1)

While 0=0

    waitinput

Wend