Sub Process_Globals
Dim note As Notification
Dim ph As PhoneWakeState
Dim tmr As Timer
End Sub
Sub Service_Start (StartingIntent As Intent)
note.Initialize
note.Icon="icon"
note.SetInfo("title","body",Main)
note.Notify(1)
Service.StartForeground(1,note)
ph.PartialLock
' - Your code...
tmr.Initialize("tmr",60000)
tmr.Enabled=True
End Sub
Sub tmr_Tick
'do something
End Sub