问个MO的坐标问题

<P>在vb填加了一个map控件,知道左下点坐标和右上点坐标,怎么显示所以点的坐标啊,</P>
<P>最好是鼠标移动到那,就显示那样的坐标,应该怎么弄啊,这样的话是按照投影算的,还十九均匀的分坐标啊</P>
<P>    Tx1 = , "经度"<BR>    Ty1 = "纬度"<BR>    Ox1 = Map1.ToMapDistance(X)<BR>    Oy1 = Map1.ToMapDistance(Y)Tx2 ="经度"<BR>    Ty2 ="纬度"<BR>    Ox2 = Map1.ToMapDistance(X)<BR>    Oy2 = Map1.ToMapDistance(Y)</P>
<P>Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>  Dim Str1 As String<BR>  If Tbl Then<BR>    Str1 = "x=" ; Format(Dx0 + Map1.ToMapDistance(X) / Dxk, "0.000") ; _<BR>    "，y=" ; Format(Dy0 - Map1.ToMapDistance(Y) / Dyk, "0.000")<BR>  Else<BR>    Str1 = "x=" ; Format(Map1.ToMapDistance(X), "0.000") ; "，y=" ; Format(Map1.ToMapDistance(Y), "0.000")<BR>  End If<BR>  Label1.Caption = Str1<BR>End Sub</P>

<P>If Tx1 = 0 Or Ty1 = 0 Or Tx2 = 0 Or Ty2 = 0 Then<BR>    MsgBox "先点击地图，输入2点经纬度。"<BR>    Exit Sub<BR>  Else<BR>    Tbl = True<BR>    Dx0 = (Tx1 * Ox2 - Tx2 * Ox1) / (Ox2 - Ox1)<BR>    Dxk = Ox1 / (Tx1 - Dx0)<BR>    <BR>    Dy0 = (Oy1 * Ty2 - Oy2 * Ty1) / (Oy1 - Oy2)<BR>    Dyk = Oy1 / (Dy0 - Ty1)<BR>  End If</P>