.... FOR i = 1 TO .COLUMNCOUNT WITH .Columns(m.i) .RemoveObject('Text1') .ADDOBJECT('_Text1','_TextBox') ._Text1.visible = .T. * or STORE .ADDOBJECT('_Text1','_TextBox') TO ._Text1.visible * .CurrentControl = '_Text1' && not necessary ENDWITH ENDFOR ...Fabio