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