sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim tmr1,tmr2,tmr3,tmr4 As Timer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
tmr1.Initialize("tmr",2000)
tmr2.Initialize("tmr",1000)
tmr3.Initialize("tmr",3000)
tmr4.Initialize("tmr",1500)
tmr1.Enabled = False
tmr2.Enabled = False
tmr3.Enabled = False
tmr4.Enabled = False
tmr4_tick
End Sub
Sub tmr1_tick
tmr1.Enabled = False
' do something
tmr2.Enabled = True
End Sub
Sub tmr2_tick
tmr2.Enabled = False
' do something
tmr3.Enabled = True
End Sub
Sub tmr3_tick
tmr3.Enabled = False
' do something
tmr4.Enabled = True
End Sub
Sub tmr4_tick
tmr4.Enabled = False
' do something
tmr1.Enabled = True
End Sub