>FOR EACH loColumn IN This.Columns
> lcColumnControlName = loColumn.CurrentControl)
> loColumn.RemoveObject(lcColumnControlName)
> loColumn.AddObject(lcColumnControlName,"MyControl")
> STORE .T. TO ("loColumn." + loColumn.CurrentControl + ".Visible")
>ENDFOR


You know that you have a stray end parenthesis on the line
> lcColumnControlName = loColumn.CurrentControl)
don't you?