Sub HideItinerary()

  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 deux étapes et calcule un itinéraire
  objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
  objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)
  objRoute.Calculate

  'Masque maintenant l'itinéraire qui était apparu automatiquement ci-dessus
  objApp.ItineraryVisible = False

  End Sub

[/ code]

Hope it's an answer to your question