WITH thisform.grdGrid .ColumnCount = 2 FOR lnCount = 1 TO .ColumnCount .Columns(lnCount).RemoveObject("text1") .Columns(lnCount).AddObject("txtNameHere", "YourTextBoxClass") .Columns(lnCount).txtNameHere.Visible = .T. NEXT .Columns(1).ControlSource = "SUBSTR(bcl.bcnudos,2,8)" .Columns(1).Header1.Caption = "Dossier" .Columns(1).Width=12 .Columns(2).ControlSource = "bcl.bclig" .Columns(2).Header1.Caption = "N°" .Columns(2).Width=5 ENDWITH