请帮帮忙看一下!感激…

<P ><FONT size=3><FONT face="Times New Roman">请问一下各位高手，为什么我执行这段程序时，会于红色字体那出现问题，有什么解决方法吗？谢谢<p></p></FONT></FONT></P>
<P>Private Sub Toolbar1_ButtonClick(ByVal Button _<BR>As MSComCtlLib.Button)<BR>With MapControl1<BR>Select Case Button.Key<BR>Case "Zoom"<BR>.MousePointer = <FONT color=#ff0000>esriPointerZoomIn<BR></FONT>Case "Pan"<BR>.MousePointer = esriPointerPan<BR>Case "FullExtent"<BR>.MousePointer = esriPointerDefault<BR>.Extent = MapControl1.FullExtent<BR>End Select<BR>End With<BR>End Sub</P><img src="images/post/smile/dvbbs/em02.gif" />