Sub Service_Create
n.Initialize
n.Icon = "icon"
n.Sound = False
n.AutoCancel = False
n.OnGoingEvent = True
n.SetInfo("", "", Main)
Service.StartForeground(1, n)
End Sub
Sub Service_Start (StartingIntent As Intent)
StartServiceAt("", DateTime.Now + 21600 * DateTime.TicksPerSecond, True) 'schedule the next task to run in 21600 (6 ore) seconds.
'Sub that loop over the thousands of items and put the null
'Note that the following sub use custom APIs (to implement my app logic) developed on top of the KVS Cloud APIs
DeleteOlderItems (7)
End Sub