>>*!* Begin Code Sample >> >>CREAT TABLE DATA (foo c(10), BAR c(10)) >>APPEND BLANK >>REPLACE foo WITH [testing] >>REPLACE BAR WITH [testing] >> >> >>PUBLIC x >>x = CREAT([oForm1]) >>x.SHOW >> >>DEFINE CLASS oForm1 AS FORM >> AUTOCENTER = .T. >> ADD OBJECT Grid1 AS oGrid >>ENDDEFINE >> >>DEFINE CLASS oGrid AS GRID >> ROWHEIGHT = 24 >> ADD OBJECT Column1 AS oColumn >> Column1.CURRENTCONTROL = [Combo1] >> ADD OBJECT Column2 AS COLUMN >>ENDDEFINE >> >>DEFINE CLASS oColumn AS COLUMN >> sparce = .F. >> ADD OBJECT Combo1 AS oCombo >>ENDDEFINE >> >>DEFINE CLASS oCombo AS COMBOBOX >> ROWSOURCETYPE = 1 >> ROWSOURCE = [1,2,3,4,5] >>ENDDEFINE >> >>*!* End Code Sample >>>>Dave