MapForums

    FindResults results = MP.ActiveMap.FindAddressResults(street, city, "", "", zip, "");
    if (results.ResultsQuality == GeoFindResultsQuality.geoFirstResultGood) {
	Route route = MP.ActiveMap.ActiveRoute;
	route.Clear();

	// set first point
	object o = 1;
	Location loc = (Location)results.get_Item(ref o);
	Waypoint wp = route.Waypoints.Add(loc, loc.Name);
	wp.SegmentPreferences = GeoSegmentPreferences.geoSegmentPreferred;

	results = MP.ActiveMap.FindAddressResults(street2, city2, "", "", zip2, "");
	if (results.ResultsQuality == GeoFindResultsQuality.geoFirstResultGood) {
	    // set last point
	    o = 1;
	    loc = (Location)results.get_Item(ref o);
	    wp = route.Waypoints.Add(loc, loc.Name);
	    wp.SegmentPreferences = GeoSegmentPreferences.geoSegmentPreferred;

	    // set preferred roads
	    route.DriverProfile.set_PreferredRoads(GeoRoadType.geoRoadArterial, 0.1);
	    route.DriverProfile.set_PreferredRoads(GeoRoadType.geoRoadFerry, 0.1);
	    route.DriverProfile.set_PreferredRoads(GeoRoadType.geoRoadInterstate, 0.9);
	    route.DriverProfile.set_PreferredRoads(GeoRoadType.geoRoadOtherHighway, 0.6);
	    route.DriverProfile.set_PreferredRoads(GeoRoadType.geoRoadToll, 0.2);

	    // set preferred speeds
	    route.DriverProfile.set_Speed(GeoRoadType.geoRoadArterial, 50);
	    route.DriverProfile.set_Speed(GeoRoadType.geoRoadInterstate, 120);
	    route.DriverProfile.set_Speed(GeoRoadType.geoRoadLimitedAccess, 120);
	    route.DriverProfile.set_Speed(GeoRoadType.geoRoadOtherHighway, 90);
	    route.DriverProfile.set_Speed(GeoRoadType.geoRoadStreet, 50);

	    route.DriverProfile.StartTime = System.DateTime.Now;
	    route.Calculate();

	    Console.WriteLine("Minutes " + route.TripTime * 1440);

Private Sub Command2_Click()
    'Define variables to hold our information.
    Dim oApp As Object, omap As Object
    Dim oPush(1 To 2) As Object
    Dim oloc As Object
    Dim oLOCtwo As Object
    Set oApp = CreateObject("Mappoint.Application")
    Set omap = oApp.NewMap  'Create a new map
    
    Set oloc = omap.Find("247 davis road" & " , " & Dawson & " , " & PA & ", " & 15428) 'Geocode the first address
    If Not oloc Is Nothing Then      'Check to see if the first address was found.
        Set oPush(1) = omap.AddPushpin(oloc) 'Place a pushpin on the map
        oPush(1).GoTo               'Go to that pushpin
    
    Set oLOCtwo = omap.Find("1801 Trenton Ct" & " , " & "Cranberry Twp" & " , " & PA & " , " & 16066)  'Geocode the second address
        If Not oLOCtwo Is Nothing Then 'Check to see if the second address was found
        Set oPush(2) = omap.AddPushpin(oLOCtwo) 'Add a pushpin for it
        oPush(2).Highlight = True
        
            With omap.ActiveRoute       'Let's generate some directions between the points
                omap.Waypoints.Add oloc  'Add the first address
                omap.Waypoints.Add oLOCtwo  'Add the second address
                omap.ActiveRoute.Calculate      'Now find the directions between them
            End With
            
Me.Text0 = Console.WriteLine("Minutes " + omap.ActiveRoute.TripTime * 1440)
        Else                'If the second location is not found, then indicate no directions
            Me.Text0.SetFocus
            Me.Text0.text = "No second location found!"
        End If
            
    Set omap = Nothing
    Set oApp = Nothing
    End If
End Sub