Sub Globals
Dim stayawake As PhoneWakeState
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("whatever")
stayawake.KeepAlive(True)
End Sub
Sub Activity_Resume
stayawake.KeepAlive(True)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
stayawake.ReleaseKeepAlive
End Sub