Element ListBox BaseElements include 'WinList.inc' EndBase GlobalConst ClassName#.ERR equ LB_ERR ClassName#.ADDSTRING equ LB_ADDSTRING ClassName#.DELETESTRING equ LB_DELETESTRING ClassName#.GETCOUNT equ LB_GETCOUNT ClassName#.GETCURSEL equ LB_GETCURSEL ClassName#.GETTEXT equ LB_GETTEXT ClassName#.GETTEXTLEN equ LB_GETTEXTLEN ClassName#.INSERTSTRING equ LB_INSERTSTRING ClassName#.RESETCONTENT equ LB_RESETCONTENT ClassName#.SELECTSTRING equ LB_SELECTSTRING ClassName#.SETCURSEL equ LB_SETCURSEL ClassName#.DlgDir equ DlgDirList Create NewControl Self,Parent,listbox_class,0,WS_VSCROLL+LBS_NOTIFY+LBS_NOINTEGRALHEIGHT,WS_EX_CLIENTEDGE WinList.Init ClassName,Self EndElement