LOCAL i WITH ThisForm.cntButtons FOR i = .Controlcount TO 1 Step -1 .RemoveObject(.Controls[i].Name) ENDFOR ENDWITHCheers,
>FOR EACH loAppControl IN thisform.cntButtons.objects > thisform.cntButtons.RemoveObject(loAppControl.name) >ENDFOR > >SELECT vapps >REQUERY() >SCAN FOR vapps.lactive > NewButton='cmd'+ALLTRIM(vapps.cObjName) > thisform.cntButtons.addobject(NewButton,'MenuButton') > > NewTimer='tmr'+ALLTRIM(vapps.cObjName) > thisform.cntButtons.AddObject(NewTimer,'ButtonTimer') >endscan >