[求助]如何在工具栏里调用内部命令？？

<P>在vb6里定义了一些工具栏，想调用areenging里面icommand接口的一些内部命令，有tool关键字的命令可以调用成功，如放大，缩小等，但有command关键字的调用不成功。。如下</P>
<P>Private Sub Toolbar1_ButtonClick(ByVal button As MSComctlLib.button)<BR>    Dim command As ICommand</P>
<P> Select Case button.Key</P>
<P> Case "ToolbarZoomIn"    '放大，这种工具类型的可以调用成功<BR>          <BR>          Set MapControl1.CurrentTool = Nothing<BR>          Set command = New ControlsMapZoomIn<FONT color=#ee1169>Tool</FONT><BR>          command.OnCreate (MapControl1.Object)<BR>          Set MapControl1.CurrentTool = command</P>
<P>  Case "ToolbarFull"    '全屏显示，这个调用不成功，这种命令类型的怎么调用？<BR>          m_CheckOperate = 0<BR>       Set MapControl1.CurrentTool = Nothing<BR>        Set command = New ControlsMapFullExtent<FONT color=#f70968>Command</FONT><BR>       command.OnCreate (MapControl1.Object)<BR>       Set MapControl1.CurrentTool = command</P>
<P>end select</P>
<P>end sub</P>
<P>注意红色字命令类型的不能调用，出现类型不匹配的错误提示，请问高手怎么调用？？谢谢</P>

<P>我也遇到了这个问题，迫切想知道答案，哪位高手赐教啊</P>