Italian Cordinate GPS da indirizzi.

Sub Geodec_GeocodeDone(Results() As Address, Tag As Object)
    If Results.Length>0 Then
        Dim Address1 As Address
        Dim i As Int
        For i=0 To Results.Length-1
            Address1=Results(i)
            lat = Address1.Latitude
            longi =  Address1.Longitude
            nmk = nmk + i
            Dim str As String
            If Address1.Thoroughfare <> Null Then
                str = Address1.Thoroughfare
            Else   
                str = Address1.FeatureName
            End If
            mk(nmk) = gmap.AddMarker(lat,longi,str)
            Dim cp As CameraPosition
            cp.Initialize(lat,longi, 9)
            gmap.AnimateCamera(cp)
        Next
    Else
        Msgbox("GetFromLocation", "No Latitude and Longitude found for the LocationName")
    End If
    ProgressDialogHide
End Sub