'Class: SomeTask
Sub Class_Globals
Private timer1 As Timer
End Sub
Public Sub Initialize
timer1.Initialize("timer1", 10 * DateTime.TicksPerMinute)
timer1.Enabled = True
StartMessageLoop '<- don't forget!
End Sub
Sub Timer1_Tick
'do the work required
If Main.StopTimer then
timer1.Enabled = False
Else
timer1.Enabled = True
EndIf
' Code for timer1
End Sub
Sub Timer1_Tick
'do the work required
If Main.StopTimer then
timer1.Enabled = False
StopMessageLoop <<------ add here
Else
timer1.Enabled = True
EndIf
' Code for timer1
End Sub