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.))