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