[求助]放大缩小使用工具拦的问题！

<P>放大缩小使用工具拦的问题！</P>
<P>以下是我用工具拦来实现图层的放大缩小功能，可是为什么不能实现呢？</P>
<P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>    If MO_Toolbar1.Buttons(1).Value = tbrPressed Then<BR>       Set Map1.Extent = Map1.TrackRectangle<BR>    ElseIf MO_Toolbar1.Buttons(6).Value = tbrPressed Then<BR>       Map1.Pan<BR>    ElseIf MO_Toolbar1.Buttons(5).Value = tbrPressed Then<BR>       Set r = Map1.Extent<BR>       r.ScaleRectangle 1.5<BR>       Map1.Extent = r<BR>    <BR>    ElseIf MO_Toolbar1.Buttons(7).Value = tbrPressed Then<BR>       Map1.Extent = Map1.FullExtent<BR>    End If<BR>End Sub</P>
<P>谢谢高手指点！</P>

程序没有错误，检查是不是你的Toolbar按钮的按下状态未更新~

急啊~~~

<P>怎么不行呢？</P>
<P>每人回我~~~~</P><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" />