#Region Service Attributes
#StartAtBoot: true
#ExcludeFromLibrary: True
#End Region
Sub Process_Globals
Private logs As StringBuilder
Private logcat As LogCat
End Sub
Sub Service_Create
logs.Initialize
#if RELEASE
logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
#end if
End Sub
Sub Service_Start (StartingIntent As Intent)
if some_conditions then
StartServiceAt(TestServ, DateTime.Now + 5 * DateTime.TicksPerSecond, True)
End If
End Sub