[求助]怎样测算图层上两点之间的距离？

<P>Ruler 是我自定义的测算距离的工具</P>
<P>Private Sub lxRulerTool_Click()
   Map1.CurrentTool = RulerTool
End Sub
</P>
<P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Map1.CurrentTool = RulerTool And Button = vbLeftButton Then
     Map1.ConvertCoord X, Y, XDown, YDown, miScreenToMap
  End If
End Sub
</P>
<P>Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Map1.CurrentTool = RulerTool And Button = vbLeftButton Then
    Dim MapCoordX As Double, MapCoordY As Double
      Map1.MapUnit = miUnitMile
      Map1.ConvertCoord X, Y, MapCoordX, MapCoordY, miScreenToMap
      fMainForm.sbStatusBar.Simple Text = Map1.Distance(XDown, YDown, MapCoordX, MapCoordY) ; "miles"
   End If
End Sub</P>
<P>为什么执行不了啊？好像是fMainForm.sbStatusBar.Simple Text 这里出问题了。书上说两点距离是在表状态栏里显示，到底在哪啊？各位达人帮我看看啊。</P>

<P>XDown, YDown, MapCoordX, MapCoordY</P><P>你上面的变量是全程变量吗？</P>

<P>en  !</P><P>是全程变量我在通用模块里都声明了</P>

<P>顺便再问一个问题,为什么我测算不出结果呢?</P><P>我使用的是下载的上海矢量地图, 用geoset 生成一个M上海的文件,然后用MAPx打开,</P><P>是不是还需要一些坐标的设置啊?</P>