AO地图放大问题求助！

本人是AO的初学者，想做一个放大的功能，可以点击地图放大和划矩形放大，我现在只是做得划矩形来放大，代码如下：

pEnv = MapControl1.TrackRectangle()
               Dim recth As Double = pEnv.Height
               Dim rectw As Double = pEnv.Width
               If pEnv Is Nothing Or recth < 0.00005 Or rectw < 0.00005 Then

                   pp = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(e.x, e.y)
                   pev = MapControl1.Extent
                   pev.CenterAt(pp)
                   pev.Expand(0.5, 0.5, True)

                   MapControl1.Extent = pev
               Else
                   MapControl1.Extent = pEnv
               End If
               pActiveView.Refresh()

有什么问题吗？