Public goShutdownTimer
goShutdownTimer = CreateObject("ctmrshutdown")
Read Events

Define Class ctmrshutdown as Timer
   iRepeats = 10
   Interval = 500
   
   Procedure Timer()
      This.Enabled = .F.
      ? "ran at",Datetime()
      
      This.iRepeats = This.iRepeats - 1
      If This.iRepeats<0
         Clear Events
         Quit
      EndIf
      
      This.Enabled = .T.
   EndProc
EndDefine