关于MO(结合VB)中地图放大的紧急问题

我在toolbar控件放了一个地图放大的图标按钮，给它定义的事件如下：
     Select Case Button.Key        
        Case "newzoomin"            
            Set r = Map1.TrackRectangle
            Set Map1.Extent = r
     end select
可是当我点击这个按钮要进行地图放大的时候，它默认我已经在按钮的位置按下鼠标左键了，这样的结果是我只能放大从图标的位置到鼠标结束点的位置，不能从地图任何位置进行矩形放缩，造成很大的不便，请问怎样解决？

那就是你程序判断得不好了，你可以看看mo里自带的几个例子，参考下哈

放大事件要在鼠标在地图中按下是发生

Set r = Map1.TrackRectangle
            Set Map1.Extent = r
这段代码要放在mouse_down中可以，前面判断一下toolbar的放大按钮是否已经按了

<P>'door number 2</P><P>Set r = Map1.Extent
        r.ScaleRectangle 0.5        </P><P>Map1.Extent = r</P>

一般在mousedown事件中编写