Sub GetLocationNameByLatLon(lat As String, lon As String) As ResumableSub 'ignore
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("https://maps.googleapis.com/maps/api/geocode/json", Array As String("latlng", lat & "," & lon,"key",GoogleApiKey))
j.GetRequest.SetHeader("X-Android-Package", "MyAppPackage")
j.GetRequest.SetHeader("X-Android-Cert", "92:F0:43:4D:3F:xx:xx:xx:xx:xx")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then .....