Sub Geocoder_GeocodeDone(Results() As Address, Tag As Object)
dim place as string = ""
If Results.Length>0 Then
Dim Address1 As Address
'For i = 0 To Results.Length-1
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
'Next
End If
label1.text = place
End Sub