#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
Dim wakelock As PhoneWakeState
Dim tm As Timer
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
wakelock.PartialLock
ToastMessageShow("Servicio Iniciado", True)
tm.Initialize("tm",10000)
tm.Enabled = True
End Sub
Sub Service_Destroy
End Sub
Sub tm_tick
tm.Enabled = False
wakelock.ReleasePartialLock
StartActivity(Main)
End Sub