#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
Dim timer1 As Timer
End Sub
Sub Service_Create
DateTime.DateFormat = "MM-dd-yyyy hh:mm:ss"
timer1.Initialize("timer1",1000)
End Sub
Sub Service_Start (StartingIntent As Intent)
timer1.Enabled = True
End Sub
Sub Service_Destroy
End Sub
Private Sub Timer1_Tick
CallSub(Main, "start_up")
End Sub