IF &lcAliasDoc..n_transffac_6=1 .pageframe1.Page1.grid1.ColumnCount=9 .pageframe1.Page1.grid1.Column9.RemoveObject('Text1') .pageframe1.Page1.grid1.Column9.NEWobject('Text1','myTextBox','add_grid_column.prg') .pageframe1.Page1.Grid1.Column9.controlsource=lcAliasLinDoc+'.d_data_entrega' ENDIFBut the cursor goes until 8 column, and don't jump to the 9th column, it acts like readonly.