Sub Tm_Tick
Dim t As String = "Bearer mytockenxxxxxxxxxx"
Dim j As HttpJob
j.Initialize("",Me)
j.Download("http://myapixxxxxxxx")
j.GetRequest.SetHeader("Authorization",t)
Tm.Enabled = False
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release
Tm.Enabled = True
End Sub