With .grdBrowse .AddObject(lcObject,"tateColumn") .&lcObject..ControlSource = aCampos[i,1] .&lcObject..Width = aCampos[i,2] .&lcObject..Header1.Caption = cTitu <strong>.&lcObject.Visible = .T.</strong> .&lcObject..Refresh() EndWithAdd the line above in the with/endwith clause.