Geocoder.GetFromLocation(point.Lat,point.Lon,2, Null)
...
End Sub
Sub Geocoder_GeocodeDone(Results() As Address, Tag As Object)
If Results.Length>0 Then
Dim Address1 As Address
Address1=Results(0)
If Address1.AddressLines.Size>0 Then
For j = 0 To Address1.AddressLines.Size-1
place = place & " " & Address1.AddressLines.Get(j) & " "
Next
End If
End If
display_parameter = place
End Sub