求助：怎么删除图例元素啊？？

<P>5555代码如下，删其他元素是可以，但是删除图例元素就出内存错误了，pGraphContainer.DeleteElement pElement  好象不能这样删，是不是因为图例元素是复合元素的原因啊，高手帮忙</P>
<P>        Dim pPageLayoutGraphicsSelect As IGraphicsContainerSelect<BR>        Dim pIEnumElement As IEnumElement<BR>        Dim pElement As IElement<BR>        Set pPageLayoutGraphicsSelect = pPageLayout<BR>        Set pIEnumElement = pPageLayoutGraphicsSelect.SelectedElements<BR>        pIEnumElement.Reset<BR>        Set pElement = pIEnumElement.Next<BR>        <BR>        Do While Not pElement Is Nothing<BR>            pElement.Deactivate<BR>            pGraphContainer.DeleteElement pElement<BR>            Set pElement = pIEnumElement.Next<BR>        Loop</P>

<P>请问在TOCCONTROL中能删除图例吗？</P>