do case case loControl.BaseClass = 'Option Group' for each loButton in loControl.Buttons ... endfor case loControl.BaseClass = 'PageFrame' for each loPage in loControl.Pages ... endfor case ect. ect. endcaseJust one for each oOPbject int loObject.Objects. Its also great to have this in the DataEnvironment, so we can whip through the objects without having to do an AMembers() or some work around.