'==LIST BOX================================================================
' message "List Box"
$title="List Box"
$text ="Click on selection and then click on `Enter'"
$options="Customer;Fittings;Instructions;Orders;Requisitions;Receipts;Emails;StreetMap;Comments"
#mode   =0
#sepchar=59
#GEMS_ctrl_fontsize=11
x=_GEMS_ListBox($title,$text,$options,#mode,#sepchar)
_GEMS_ResetCtrlParam()
message "x is:"&str(x)
'==========================================================================