>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() >EndWith > >>