>>LPARAMETERS tcCommand, tnDelay, toThis, toThisform >>LOCAL lcThisVarname, lcThisFormVarname, loTimer >> >>tnDelay = Param_Val(tnDelay,200) >>lcScript = tcCommand >>lcCRLF = CHR(13)+CHR(10) >> >>IF VARTYPE(toThis) = "O" >> lcThisVarname = "hg_" + SYS(2015) >> RELEASE &lcThisVarname >> PUBLIC &lcThisVarname >> STORE toThis TO (lcThisVarname) >> lcScript = STRTRAN(lcScript,"this.",lcThisVarname + ".",1,-1,1) >> lcScript = lcScript + lcCRLF + "RELEASE " + lcThisVarname >>ENDIF >> >>IF VARTYPE(toThisform) = "O" >> lcThisFormVarname = "hg_" + SYS(2015) >> RELEASE &lcThisFormVarname >> PUBLIC &lcThisFormVarname >> STORE toThisform TO (lcThisFormVarname) >> lcScript = STRTRAN(lcScript,"thisform.",lcThisFormVarname + ".",1,-1,1) >> lcScript = lcScript + lcCRLF + "RELEASE " + lcThisFormVarname >>ENDIF >> >>lcScript = "lparameters toTimer" + lcCRLF + lcScript >> >>_SCREEN.oapp.addproperty("oHGTimer",NEWOBJECT("timer_adhoc","proctrls.vcx","",lcScript,tnDelay,.T.,.T.,.T.)) >>True. It doesn't run thousands of times, though, being run in UI situations where something has to be delayed.