LB_ADDSTRING = 384
LB_RESETCONTENT = 388
LB_GETCURSEL = 392
INSTALL @lib$ + "WINLIB2B"
ON SYS Click% = @wparam% AND &FFFF : RETURN
dlg%=FN_newdialog( "TEST", 0, 0,162,306, 8, 500) : dlg%!16 = &90C808C4
PROC_pushbutton( dlg%, "OK", 1, 6,288, 42, 14, &20001)
PROC_pushbutton( dlg%, "Cancel", 2,114,288, 42, 14, &0)
PROC_static( dlg%, "Test box",100, 6, 6,150, 10, &0)
PROC_listbox( dlg%, "", 101, 6, 18,150,274, &7E)
PROC_showdialog(dlg%)
SYS "SendDlgItemMessage", !dlg%, 101, LB_RESETCONTENT, 0, 0
FOR i% = 0 TO 9
SYS "SendDlgItemMessage", !dlg%, 101, LB_ADDSTRING, 0, "Line "+STR$(i%)
NEXT
Click% = 0 : sel% = -1
REPEAT
REPEAT click% = 0 : WAIT 1 : SWAP Click%, click% : UNTIL click% <> 0
IF click% = 101 THEN SYS "SendDlgItemMessage", !dlg%, 101, LB_GETCURSEL, 0, 0 TO sel%
PRINT click%, sel%
UNTIL click% = 1 OR click% = 2 OR !dlg% = 0
IF !dlg%>0 THEN PROC_closedialog(dlg%)
END