Sub ar_Connected (Success As Boolean)
Log("Connected: " & Success)
ToastMessageShow ("Connection to the service: " & Success,True)
' This works
End Sub
Sub Service_Start (StartingIntent As Intent)
' it never reaches this line!
If StartingIntent.Action = "activity_recognition" Then
...
end if
end sub