AO地图放大问题求助！

<P>本人是AO的初学者，想做一个放大的功能，可以点击地图放大和划矩形放大，我现在只是做得划矩形来放大，代码如下：</P>
<P>pEnv = MapControl1.TrackRectangle()<BR>                Dim recth As Double = pEnv.Height<BR>                Dim rectw As Double = pEnv.Width<BR>                If pEnv Is Nothing Or recth < 0.00005 Or rectw < 0.00005 Then</P>
<P>                    pp = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(e.x, e.y)<BR>                    pev = MapControl1.Extent<BR>                    pev.CenterAt(pp)<BR>                    pev.Expand(0.5, 0.5, True)</P>
<P>                    MapControl1.Extent = pev<BR>                Else<BR>                    MapControl1.Extent = pEnv<BR>                End If<BR>                pActiveView.Refresh()</P>
<P>有什么问题吗？</P>

你运行一下看看