I am using Mappoint 2004 control in VB. I have the following code but it appears that I am getting what I believe to be an incorrect response. In this example I am displaying the distance from Charleston, SC to Columbia, SC as the crow flys.


Dim TestLocation As Location
Dim TestLocation2 As Location
Dim objMap As MapPointCtl.Map


Set TestLocation = objMap.GetLocation(-80.03, 32.9)
Set TestLocation2 = objMap.GetLocation(-81.12, 33.95)
MsgBox "Distance between Charleston and Columbia is " & objMap.Distance(TestLocation2, TestLocation)



This returns approx 76.32488.......But the distance from Charleston, SC to Columbia, SC is nearer to 100 Miles.

Is there something I am missing here? Any help will be greatly appreciated.

Hi,
using the part of the following code, I also find there is a bug wit hthis distance function. The returned value seems to be less than it should be. I tought it was from the unit (beetween kilometers and miles) but nothing better. If you find a turn arround, i'll be interresting

'Get a location on the map
Dim objLoc1 As MapPoint.Location
Set objLoc1 = oMap.FindResults("MAIRIE d'ENNEZAT, AUVERGNE")(1)

'Get a location on the map
Dim objLoc2 As MapPoint.Location
Set objLoc2 = oMap.FindResults("MAIRIE de GERZAT, AUVERGNE")(1)

'Find the distance to objLoc2 from that objLoc1
MsgBox "Distance from location to 0,0: " + CStr(objLoc1.DistanceTo(objLoc2))

Try looking at the values you are passing to the GetLocation method. The order is latitude then longitude. If you reverse your parameters, you get the same distance as when you calculate the distance using FindResults("Columbia, South Carolina, United States") and FindResults("Charelston, South Carolina, United States").

If you plot a pushping using the coordinates in your example, you will find it gets placed somewhere in Antarctica.