Sub Service_Start (StartingIntent As Intent)
Log("shedule.service_start()")
Log("I´m started. So I´ll do my job NOW and reshedule me for the next time")
' This is where I perform a function. (CallSub(Main, "XXXXXX")
Dim MyDateTime As Long
MyDateTime = DateTime.Now
Log($"Now time is: $Time{MyDateTime}"$)
Dim NextTime As Long = (MyDateTime +( 1 * DateTime.TicksPerMinute)) ' 1 minutes interval
Log($"Next time is: $Time{NextTime}"$)
StartServiceAt(Me,NextTime,True)
End Sub