[求助]在ArcEngine开发中，加控件代码出错

<P>在ArcEngine开发中，加控件代码出错</P>
<P>代码如下：</P>
<P>Private Sub Form_Load()</P>
<P>Dim sProgID As String<BR> <BR>sProgID = "esriControlTools.ControlsOpenDocCommand"<BR>ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>sProgID = "esriControlTools.ControlsPageZoomInTool"<BR>ToolbarControl1.AddItem sProgID, , , True, , esriCommandStyleIconOnly<BR>sProgID = "esriControlTools.ControlsPageZoomOutTool"<BR>ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>sProgID = "esriControlTools.ControlsPagePanTool"<BR> ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR> sProgID = "esriControlTools.ControlsPageZoomWholePageCommand"<BR>ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>sProgID = "esriControlTools.ControlsPageZoomPageToLastExtentBackCommand"<BR>ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR> sProgID = "esriControlTools.ControlsPageZoomPageToLastExtentForwardCommand"<BR> ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR> sProgID = "esriControlTools.ControlsMapZoomInTool"<BR> ToolbarControl1.AddItem sProgID, , , True, , esriCommandStyleIconOnly<BR> sProgID = "esriControlTools.ControlsMapZoomOutTool"<BR> ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>sProgID = "esriControlTools.ControlsMapPanTool"<BR>ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly<BR>sProgID = "esriControlTools.ControlsMapFullExtentCommand"<BR>ToolbarControl1.AddItem sProgID, , , False, , esriCommandStyleIconOnly</P>
<P>End Sub</P>
<P>此段代码是在ArcEngine中Toolbar Control  加添加常用的GIS功能的，调试时出现如下图的错误，上网查此错误，有提示说的VB出错，还是一直找不到具体的原因，恳请高手帮忙，急～</P>

<P>PS: 我在做ArcScene下的二次开发，可是这方面的资料很少，那位牛人能否发些ArcScene下的开发资料？</P>
<IMG>

<P>PS:我在VB6.0中加引用如下类库：</P>
<P>ESRI Carto Object Library</P>
<P>ESRI Display Object Library</P>
<P>ESRI Geometry Object Library</P>
<P>ESRI System Object Library</P>
<P>ESRI SystemUI Object Library</P>

<P>怎么看不到图片啊？　图片上提示的错误是：</P>
<P>实时错误‘-2147417848　（80010108）’</P>
<P>对象‘AddItem’的方法‘IToolbarControlDefault'失败</P>
<P>高手来帮帮忙</P>

<P>汗～～　到现在还没有人回答　人气太低了　</P>
<P>唉　高手消失的时代！！！</P>