Private Sub timer1_tick
timecnt = timecnt - 1
If timecnt=0 Then
Log("time is over")
timer1.Enabled=False
Dim no As NativeObject = Main.App
no.RunMethod("setStatusBarHidden:animated:", Array(False, False))
CallSubDelayed(Me, "ShowNextPage")
Else
Log(timecnt)
End If
End Sub
Sub ShowNextPage
ShowmainModule.Show
End Sub