از متد زیر استفاده کنید. apiKey و مختصات رو جایگذاری کنید خودتون
Private Sub getCityNmae(apiKey As String,lat As Double,lng As Double)
Dim job As HttpJob
job.Initialize("",Me)
job.Download($"https://api.neshan.org/v5/reverse?lat=${lat}lng=${lng}"$)
job.GetRequest.SetHeader("Api-Key", apiKey)
Wait For (job) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
job.Release
End Sub