This.iRepeats = This.iRepeats - 1
If This.iRepeats < 0
Clear Events
EndIfHello comunity

I need to create a Form with a timer on it to run every 30 minutes. for display for example a messagebox, or coomand to SQL to display BROWLIST.

I found this code for the timer:

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

Define Class ctmrshutdown as Timer
   iRepeats = 10
   Interval = 500
   
   Procedure Timer()
      This.Enabled = .F.
      ? "ran at",Datetime(),time(), second()

      
      This.Enabled = .T.
   EndProc
EndDefine

But when the timer Stop, all the program is closed !?

Someone could give me a simple example for create programmatically a Form with a Timer . The purpose is when i define timer to run every 30 minutes, i can display for example a messagebox, and after than the timer is reset to 0 (zero) and restart again.

Many thanks
Best regards
LS