DEFINE CLASS myCombo2 AS Combobox
	rowsourcetype = 3
	rowsource = "SELECT TEST FROM TEST INTO CURSOR (SYS(2015))"
	TOP = 50
ENDDEFINE

>
>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
>
>