Sub Service_Start (StartingIntent As Intent)
StartServiceAt(Me, DateTime.Now + 10000, True) ' 2 hours, 10 seconds for testing
If Starter.gtum = Starter.aWallPicX.Size - 1 Then
Starter.gtum = 1
Log(" MAX MAX MAX ")
Else
Starter.gtum = Starter.gtum + 1
Log(" min MJN min MIN")
End If
Log(" img # = " & Starter.gtum)
Log("picture name = " & Starter.aWallPicX.Get(Starter.gtum))
CallSubDelayed(Main, "changePicture") ' get next Img!
StartServiceAt(Me, DateTime.Now + 10000, True) ' 2 hours, 10 seconds for testing
'StartServiceAt(Me, DateTime.Now + 1860000, True) ' 2 hours, 31 minutes for testing.
Log(" ")
End Sub