DEFINE CLASS tmrAction as timer nDelay = 20 cCommand = "" Enabled = .F. Interval = 0 PROCEDURE TIMER && <--- !!!! local lcCMD *-- Make sure the timer only fires once! this.enabled = .F. lcCMD = allt(this.cCommand) &lcCMD ENDPROC PROCEDURE SETTIMER(tcCommand as String, tnInterval as integer) local lnDelay lnDelay = iif(vartype(tnDelay)="N", tnDelay, this.nDelay) this.cCommand = tcCommand this.Interval = lnDelay this.Enabled = .T. ENDPROCThat should work better <g>