DEFINE CLASS oApp as Container oTimer = CREATEOBJECT("Timer") oTimer.Interval = 1000 oTimer.Enabled = .T. PROCEDURE INIT() BINDEVENT(This.oTimer,"Timer",this,"Shutdown") ENDPROC PROCEDURE ShutDown() QUIT ENDPROC ENDDEFINEoX = CreateObject("oApp") works.