*!* 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 SampleDave