菜鸟求救：CommandButton

我在窗体上放了两个ButtonCommcand(  Pan  ) 和 ButtonCommand ( ZoomIn )和一个Map1.在ButtonCommand ( ZoomIn )的Click事件中加如下代码：
Set Map1.Extent = Map1.TrackRectangle

在ButtonCommcand(  Pan  )的Click事件中加如下代码：
Map1.pan

在Map1的Mouse_Down事件中加如下代码：
  if cmdPan.Value=true then
      Map1.pan
 else
     Set Map1.Extent = Map1.TrackRectangle
 endif

运行时矩形框的起点总是从这两个按钮开始，而实际应从Map1上开始。

请教：如何解决？

谢谢

工程要求：在未选中的情况下，不可通过矩形框来放大，只有单击该按钮后，才能通过矩形框来放大。

已解决。谢谢