> >CREATE CURSOR TEST(TEST C(2)) >INSERT INTO TEST(Test) VALUES("T1") >INSERT INTO TEST(Test) VALUES("T2") > >CREATE CURSOR TEST2(TEST C(2)) >INSERT INTO TEST2(Test) VALUES("T1") > >PUBLIC oFORM >oForm = CREATEOBJECT("FORM") >oForm.Show() >SELECT TEST >oForm.ADDOBJECT("combo2","myCombo2") >SELECT TEST2 >oForm.ADDOBJECT("combo3","myCombo2") > >oForm.combo2.visible = .T. >oForm.combo3.TOP= 80 >oForm.combo3.visible = .T. > >DEFINE CLASS myCombo2 AS Combobox > rowsourcetype = 3 > rowsource = "SELECT TEST FROM TEST TO SCREEN NOCONSOLE" > TOP = 50 >ENDDEFINE > >