>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 >Your test code works for me too. But the code in my program does not work. I did a test (in my code) of setting .Sparse to .T. Then I see the memo as just a Memo in the column. Then when I click on this Memo I see the entire text in the memo field. So the problem (in my code) must be the way I remove the Text1 and replace it with an EditBox. I will go through it again, step by step.