Sub GoogleSearchBar1_PlaceFound (PlaceID As String)
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("https://maps.googleapis.com/maps/api/geocode/json",Array As String("place_id", PlaceID, "key", key))
Wait For (j) JobDone (j As HttpJob)
If j.Success Then
Dim parser As JSONParser
parser.Initialize(j.GetString)
Dim root As Map = parser.NextObject
Dim results As List = root.Get("results")
Dim colres As Map = results.Get(0)
Dim geometry As Map = colres.Get("geometry")
Dim location As Map = geometry.Get("location")
Log(location)
End If
j.Release
End Sub