Sub Process_Globals
Private DrawTimer As Timer
End Sub
Sub Globals
Private LoopCount As Int
End Sub
Sub Activity_Resume
DrawTimer.Initialize("DrawTimer", 2000)
LoopCount = 0
DrawTimer.Enabled = True
End Sub
Sub Activity_Pause
DrawTimer.Enabled = False
End Sub
Private Sub DrawTimer_Tick
If LoopCount > 100 Then
DrawTimer.Enabled = False `
Else
' draw our stuff
LoopCount = LoopCount + 1
End If
End Sub