Use the FindResults method. Try:



<pre>
Dim oPush(1 To 2) As MapPointCtl.Pushpin
Dim oLoc(1 To 2) As MapPointCtl.Location
Dim oMap As MapPointCtl.Map
Dim oRoute As MapPointCtl.Route
Dim distance As Double

Set oMap = ctlMapPoint.ActiveMap
Set oLoc(1) = oMap.FindResults("SW1X 7XL, United Kingdom")(1)
Set oLoc(2) = oMap.FindResults("SW1P 4RG, United Kingdom")(1)

If Not oLoc(1) Is Nothing Then
Set oPush(1) = oMap.AddPushpin(oLoc(1))
oPush(1).GoTo
oPush(1).Highlight = True
If Not oLoc(2) Is Nothing Then
Set oPush(2) = oMap.AddPushpin(oLoc(2))
oPush(2).GoTo
oPush(2).Highlight = True

Set oRoute = oMap.ActiveRoute
oRoute.Clear
oRoute.Waypoints.Add oLoc(1)
oRoute.Waypoints.Add oLoc(2)
oRoute.Calculate
MsgBox CStr(oRoute.distance)
End If
End If
</pre>


- Walt Cygan