Sub Process_Globals
Dim Timer1 As Timer
Dim Timer2 As Timer
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("splash1")
Timer1.Initialize("Timer1", 2000)
Timer1.Enabled=True
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Timer1_tick
Timer1.Enabled = False
Activity.LoadLayout("splash2")
Timer2.Initialize("Timer2", 2000)
Timer2.Enabled=True
End Sub
Sub Timer2_tick
Timer2.Enabled = False
Activity.LoadLayout("Main")
End Sub