Dim RequestUrl As StringBuilder
RequestUrl.Initialize
RequestUrl.Append("http://maps.googleapis.com/maps/api/directions/json?origin=" & FromLatitude & "," & From.Longitude & "&destination=" & To.Latitude & "," & To.Longitude & "&sensor=false®ion=it")
Dim HttpRequest1 As HttpRequest
HttpRequest1.InitializeGet(RequestUrl.ToString)
HttpClient1.Execute(HttpRequest1, 1)