>for each oCheck in this.Mycontainer.objects > if lower(oCheck.baseclass) == 'checkbox' > this.removeobject(oCheck.name) > endif >endfor >>
>for i = this.mycontainer.controlcount to 1 > if lower(this.mycontainer.controls(i).baseclass) == 'checkbox' > this.mycontainer.removeobject(this.mycontainer.controls(i).name) > endif >endfor >>
CLEAR Ocontainer = CREATEOBJECT("container") Ocontainer.AddObject("object"+TRANSFORM(1),"custom") M.DEND = DATETIME()+1 * infinite loop FOR EACH oo IN Ocontainer.Objects FOXOBJECT ? oo.Name XNAME=oo.Name Ocontainer.AddObject("object"+TRANSFORM(VAL(SUBSTR(m.xname,7))+1),"custom") IF DATETIME()>M.DEND EXIT ENDIF NEXT RELEASE Ocontainer ? "trytoremove" Ocontainer = CREATEOBJECT("container") Ocontainer.AddObject("object"+TRANSFORM(1),"custom") M.DEND = DATETIME()+1 * 1 cycle only FOR EACH oo IN Ocontainer.Objects FOXOBJECT ? oo.Name XNAME=oo.Name Ocontainer.RemoveObject(XNAME) Ocontainer.AddObject("object"+TRANSFORM(VAL(SUBSTR(m.xname,7))+1),"custom") IF DATETIME()>M.DEND EXIT ENDIF NEXT