Sub Process_Globals
Dim Active As Boolean = True
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
If Active = False Then
ExitApplication
Return ' I don't know if I need this, but ........
End If
Active = False
StartServiceAt("",DateTime.Now + 300 * 1000,True) ' check every 5 minutes
End Sub
Sub Service_Destroy
End Sub