Sub phl_onServiceStateChanged(State As Int, strState As String)
Log("ServiceStateChanged = " & State & "; " & strState)
ServiceState = strState
If State = 1 Then 'State = 1; strState = "OUT OF SERVICE"
tim.Enabled = True
Else If State = 0 Then 'strState = "IN SERVICE"