Sub Class_Globals
Dim tmrShow As Timer
End Sub
Public Sub Initialize(eventName As String, Inter As Int,color As Int,Receiver As Panel)
tmrShow.Initialize("tmrShow",Inter)
tmrShow.Enabled=True
pnlReceiver=Receiver
CircleColor=color
EventStr=eventName
cInterval=Inter
End Sub
Private Sub TmrShow_Tick
Log("tick")
End Sub