CREATE TABLE DATA (field1 c(5), field2 c(5)) FOR i = 1 TO 20 APPEND BLANK REPLACE field1 WITH [Hello] REPLACE field2 WITH [World] ENDFOR GO TOP PUBLIC oForm1 oForm1 = CREAT([oForm]) oForm1.AUTOCENTER = .T. oForm1.SHOW DEFINE CLASS oForm AS FORM ADD OBJECT oGrid1 AS oGrid ADD OBJECT oNoSizing1 AS oNoColumnResize WITH ; LEFT = 25 ENDDEFINE DEFINE CLASS oGrid AS GRID TOP = 20 LEFT = 25 ENDDEFINE DEFINE CLASS oNoColumnResize AS SHAPE BACKSTYLE = 0 WIDTH = 303 HEIGHT = 20 TOP = 20 ENDDEFINEDave