hi,

this code should do it

Dim objApp As MapPoint.Application
Set objApp = GetObject(, "MapPoint.Application")

' Switch the state
objApp.ItineraryVisible = Not objApp.ItineraryVisible


hope that helps

Randye
CSG