define class myTest as Custom protected oTimer procedure Init this.oTimer = createobject("Timer") this.oTimer.Enabled = .T. this.oTimer.Interval = 800 endproc procedure oTimer_TIMER this.interval = 0 = messagebox("This is a test") endproc enddefineApparently I'm doing something wrong because this doesn't work.