DEFINE CLASS TEST as SESSION OLEPUBLIC o_tmrStart = .NULL. PROCEDURE INIT .o_tmrStart = CreateObject("tmrCmd") ENDPROC && INIT PROCEDURE Start .... public go_App go_App = This if .EverythingIsSet() .tmrStart.c_Cmd = "go_App.TheLongerTask" .tmrStart.Interval = .tmrStart.n_Delay ll_RetVal = .T. else ll_RetVal = .F. endif return ll_RetVal ENDPROC && Start PROCEDURE DESTROY rele go_App .o_tmrStart = .NULL. ENDPROC ENDDEFINE && tmrCmd DEFINE CLASS tmrCmd as TIMER n_Delay = 20 c_cmd = "" PROCEDURE TIMER if this.Interval = 0 return else This.Interval = 0 endif lc_cmd = .c_cmd &lc_cmd ENDPROC ENDDEFINE && tmrCmd