....
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
...