PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Caption = "Form1" Name = "FORM1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 1, ; Left = 20, ; RowHeight = 23, ; Top = 15, ; AllowCellSelection = .F., ; Column1.Width = 135 PROCEDURE grid1.Init STORE this.AddObject('col2','columnCont') TO this.col2.Visible ENDPROC PROCEDURE Load CREATE CURSOR test ( f1 I DEFAULT RECNO(), f2 c(20) DEFAULT STR(RECNO())) FOR J=1 TO 100 APPEND BLANK ENDFOR GO TOP ENDPROC ENDDEFINE DEFINE CLASS columnCont AS Column Width = 109 Sparse = .F. ADD OBJECT container1 AS contControl ENDDEFINE DEFINE CLASS contControl AS Container ADD OBJECT text1 AS textbox WITH ControlSource = "TEST.F2" ENDDEFINEFor VFPT: