#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
Dim Notif As Notification
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
Notif.Initialize2(Notif.IMPORTANCE_DEFAULT)
Notif.Icon = "icon"
Notif.Sound = True
Notif.Light=True
Notif.Vibrate = True
Notif.AutoCancel=True
Notif.SetInfo2("MyTitle", "Mybody", "MyTag", Main)
Notif.Notify(9999)
Service.StartForeground(1,Notif)
Dim p As Period
p.Hours = 0
p.Minutes = 0
p.Seconds=10
Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, p)
StartServiceAtExact(Me,newDate,True)
Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
End Sub
Sub Service_Destroy
End Sub