oForm = Createobject('myForm') oForm.Show READ events Define Class myForm As Form Add Object myCombo As ComboBox With Style=2 Add Object myButton As CommandButton With Caption="Reset",Top=50 Procedure Load Create Cursor myCursor (cUserID c(10), cUSerName c(10)) For ix=1 To 10 Insert Into myCursor Values ("",Sys(2015)) Endfor For ix=1 To 10 Insert Into myCursor Values (Sys(2015),Sys(2015)) Endfor Endproc Procedure Init With This.myCombo .RowSourceType = 3 .RowSource = ; "select cUserName,cUserID from myCursor"+; " union "+; "select '--None--' as cUserName,Chr(0) as cUserID from myCursor"+; " order by 1 into cursor _users" .BoundColumn = 2 .ListIndex = 0 Endwith Endproc Procedure myButton.Click This.Parent.myCombo.ListIndex = 0 ENDPROC PROCEDURE queryunload CLEAR events endproc EnddefineCetin