Sub Class_Globals
Private fx As JFX
Public tmr As Timer
Public Button7 As Button
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
tmr.Initialize("tmr",1000)
tmr.Enabled = True
'Button7.Initialize("Button7")
End Sub
Sub tmr_Tick
Main.TextArea1.Text = Main.TextArea1.Text & "ok" & CRLF
'Log("OK")
End Sub
Sub Button7_Action
Log("ok")
End Sub