>loForm = Createobject('myForm') >loForm.Show(1) > >define class myForm as Form > BindControls = .f. > add object myContainer as myContainer > > procedure Load() > local i > create cursor myData (PK I Autoinc, DataValue C(10)) > for i = 1 to 100 > insert into myData (DataValue) values (Sys(2015)) > next i > endproc > > function init() as Boolean > select myDataCursor > browse normal nowait > return .t. > endfunc >enddefine > >define class myContainer as Container > add object myList as myCombobox >enddefine > >define class myCombobox as ComboBox > RowSource = 'select DataValue from myData order by 1 into cursor myDataCursor' > RowSourceType = 3 >enddefine >