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