MapForums

Sub GetKm()
 Set oApp = New MapPoint.Application
 Set oMap = oApp.NewMap
 Set oLoc(1) = oMap.FindAddressResults("", "mons", , , "7000", "Belgium")
 Set oLoc(2) = oMap.FindAddressResults("", "namur", , , "5000", "Belgium")
    Set Loca(1) = oLoc(1).Item(1)
    Set Loca(2) = oLoc(2).Item(1)
    
    If Not oLoc(1) Is Nothing Then      'Check to see if the first address was found.
      If Not oLoc(2) Is Nothing Then      'Check to see if the second address was found
    Debug.Print oMap.Distance(Loca(1), Loca(2))
      End If
    End If
    Set oMap = Nothing
    Set oApp = Nothing
End Sub