I use next code for calculate distance and drive duration between two points
(code is from MSDN) Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objRoute As MapPoint.Route

'Set up the application
Set objMap = objApp.ActiveMap
Set objRoute = objMap.ActiveRoute
objApp.Visible = True
objApp.UserControl = True

'Add route stops and calculate the route
objRoute.Waypoints.Add objMap.FindResults("Seattle, WA").Item(1)
objRoute.Waypoints.Add objMap.FindResults("Redmond, WA").Item(1)
objRoute.Calculate

End Sub

Does anybody know how to close the window containing details about the route ? which is the code that can do that ?.

This maybe what you want....
gobjApp.ItineraryVisible = False

Thank-you very much . It work very good now .