define class CboList as CboColor name = "CboList" columncount = 1 && two columns in drop down list columnwidths = "24" && 1 col and 8 cols (col = 24 pixels) displaycount = 10 && number of items in drop down list incrementalsearch = .t. rowsourcetype = 1 rowsource = "1,2" style = 2 width = 1 CBO_12 statusbartext = "Status Bar: CboList control" tooltiptext = "Tool Tip: CboList control" procedure valid return not empty(this.value) endproc enddefine && CboList *************************************************