FOR EACH loColumn IN This.Columns FOXOBJECT loColumn.AddObject( [MyText], [MyCustomTextBoxClass] ) loColumn.CurrentControl = [MyText] loColumn.MyText.Visible = .T. loColumn.RemoveObject( [Text1] ) ENDFOR