#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Dim timer1 As Timer
End Sub
Sub Service_Create
timer1.Initialize("timer1",7000)
End Sub
Sub Service_Start (StartingIntent As Intent)
timer1.Enabled=True
End Sub
Sub Service_Destroy
End Sub
Sub timer1_tick
Dim n As Notification
n.Initialize
n.SetInfo("Notification " & 1, "abcde", Me)
n.Icon = "icon"
n.Notify(1)
timer1.Enabled=False
End Sub