'Alarm Service
Sub Service_Start (StartingIntent As Intent)
Dim n As Notification
n.Initialize
n.Icon = "icon"
n.AutoCancel = True
n.Vibrate = False
n.SetInfo2("You get a new message!", "Click and check it!", "odNotify", Main)
n.Notify(1)
Dim t As Long
t = FindNextTime(Array As Double(8, 12, 18))
StartServiceAt(Me,t,True)
StopService(Me)
End Sub