Lparameters oForm as Object
oForm.DoAtivar('Todos',.T.)