We're on the right track. Check this out! You can make a Windows Explorer-type display:
w=640 h=480 Global window=CreateWindow(PROGRAMTITLE,(ClientWidth(Desktop())-w)/2,(ClientHeight(Desktop())-h)/2,w,h,0) list=CreateListBox(x,y,ClientWidth(window),ClientHeight(window)-y,window) SetGadgetLayout list,1,1,1,1 For n=1 To 100 AddGadgetItem list,"item "+n Next hwnd=QueryObject(list,1) SetWindowLong hwnd,-16,$40000000 Or $10000000 Or $4 Repeat Select WaitEvent() Case $803 End End Select Forever