Think this works in VB6 when you haven't calculated a route

oMap.Shapes.AddLine location1, location2
Distance# = oMap.Distance(location1, location2)

There's a good example on MapPoint help under 'Distance Method' using both VB6 and C#

Rgds, David