oaladinform1=NEWOBJECT("form1") oaladinform1.Show(1) RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 DoCreate = .T. lbopenconfig = .F. Name = "Aladinform1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 1, ; Height = 200, ; Left = 20, ; Panel = 1, ; RowHeight = 85, ; Top = 26, ; Width = 320, ; Name = "Grid1", ; Column1.Width = 278, ; Column1.Sparse = .F., ; Column1.Name = "Column1" PROCEDURE Init thisform.Grid1.Column1.RemoveObject([Text1]) thisform.Grid1.Column1.AddObject([Edit1],[EditBox]) thisform.Grid1.Column1.Edit1.Visible = .t. ENDPROC PROCEDURE Load CREATE CURSOR crsGrid (Fld1 M) FOR asd = 1 TO 20 INSERT INTO crsGrid VALUES (REPLICATE([Test],asd*20)) NEXT GO TOP ENDPROC ENDDEFINE