If Results.Length>0 Then
Dim Address1 As Address
Dim i As Int
For i=0 To Results.Length-1
Address1=Results(i)
Resultslist.AddSingleLine(Address1.CountryName)
Resultslist.AddSingleLine(Address1.CountryCode)
Resultslist.AddSingleLine(Address1.Thoroughfare)
Resultslist.AddSingleLine(Address1.SubThoroughfare)
Resultslist.AddSingleLine(Address1.PostalCode)
Resultslist.AddSingleLine(Address1.Locality)
Resultslist.AddSingleLine(Address1.SubLocality)
Resultslist.AddSingleLine(Address1.AdminArea)
Resultslist.AddSingleLine(Address1.SubAdminArea)
Next