LOCAL oForm as Form oForm = CREATEOBJECT('TestForm') oForm.Show(1) RETURN DEFINE CLASS TestForm as Form AutoCenter = .T. PROCEDURE Load CREATE CURSOR temp (test C(254)) LOCAL i FOR i = 1 TO 10 INSERT INTO temp VALUES (CHR(i+64)) ENDFOR GO TOP IN temp ENDPROC ADD OBJECT Combo1 as TestCombo WITH ; Left = 50, Top = 50 ADD OBJECT Combo2 as TestCombo WITH ; Left = 200, Top = 50, ; ColumnCount = 2, ; ColumnWidths = '100,0', ; ColumnLines = .F. ADD OBJECT Combo3 as TestCombo WITH ; Left = 200, Top = 80, ; RowSource = 'Select CAST(test As Char(50)) From temp Into Cursor SYS(2015)' ENDDEFINE DEFINE CLASS TestCombo as ComboBox RowSource = 'Select test From temp Into Cursor SYS(2015)' RowSourceType = 3 ENDDEFINEhth