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

Rex,

I think the problem is on the STORE line, change it to


STORE .T. TO loColumn.CurrentControl.Visible

OR

loColumn.CurrentControl.Visible = .T.