Sub Process_Globals
Private Timers(5) As Timer
Private TmrIntervals() As Int = Array(2000, 3000, 7000, 11000, 13000)
End Sub
Sub Activity_Create(FirstTime As Boolean)
For i = 0 To TmrIntervals.Length - 1
Timers(i).Initialize("TmrAll", TmrIntervals(i))
Timers(i).Enabled = True
Next
End Sub
Sub TmrAll_Tick
Dim Tmr As Timer = Sender
'Log(Tim.Interval)
Select Tmr.Interval
Case 2000
Log("Timer 1 Firing")
Case 3000
Log("Timer 2 Firing")
Case 7000
Log("Timer 3 Firing")
Case 11000
Log("Timer 4 Firing")
Case 13000
Log("Timer 5 Firing")
End Select
End Sub