Sub Class_Globals
Private fx As JFX
Private callback As Object
Private timer1 As Timer
Private functname As String
Private x As Int
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(mCallback As Object,funct As String , interval As Int)
timer1.Initialize("timer1",interval)
timer1.Enabled = True
callback = mCallback
functname = funct
End Sub
private Sub timer1_Tick
Log("Timer tick")
x = x + 1
CallSub2(callback, functname,x)
End Sub