geoSegmentPreferred  2 // Prendre les routes préférées
geoSegmentQuickest   0 // Prendre l'itinéraire le plus rapide. 
geoSegmentShortest   1 // Prendre l'itinéraire le plus court. 

S'applique à
Objets :  Waypoint

Syntaxe
objet.SegmentPreferences

Paramètres
Élément Description 
objet Obligatoire. Expression qui renvoie un objet Waypoint. 

Exemple
  Sub ChangeSegmentPreferences()

  Dim objApp As New MapPoint.Application
  Dim objMap As MapPoint.Map
  Dim objRoute As MapPoint.Route

  'Configure l'application
  Set objMap = objApp.ActiveMap
  Set objRoute = objMap.ActiveRoute
  objApp.Visible = True
  objApp.UserControl = True

  'Ajoute des étapes
  objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
  objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)

  'Choisit les autoroutes comme routes préférées, puis établit l'itinéraire  sur base de ces préférences et calcule l'itinéraire
   
  objRoute.Waypoints.Item(1).SegmentPreferences = geoSegmentShortest
  objRoute.Calculate

  End Sub