哪个高手给个PageLayoutContro添加legend的例子啊

先谢过了~~~

<P>   If a = 3 Then       '添加图片<BR>    Dim pGraphics3 As IGraphicsContainer, pPagelayout3 As IPageLayout<BR>    Dim pElement3 As IElement<BR>    Dim pPicElem As IPictureElement2<BR>    Dim pPoint3 As IPoint<BR>    Dim pEnvelope As IEnvelope</P>
<P>    <BR>     Set pGraphics3 = PageLayoutControl1.GraphicsContainer<BR>     Set pPoint3 = New Point</P>
<P>     pPoint3.x = pageX<BR>     pPoint3.y = pageY</P>
<P>    Set pPicElem = New JpgPictureElement<BR>    pPicElem.ImportPictureFromFile "d:\my.jpg"<BR>'    (gFile)<BR>    <BR>    <BR>    Set pElement3 = pPicElem<BR>'    pElement3.Geometry = pPoint3<BR>    <BR>    pElement3.Geometry = pEnvelope<BR>    pGraphics3.AddElement pElement1, 0<BR>    <BR>    PageLayoutControl1.Refresh<BR>    End If</P>

<P>帮我看看哦  </P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>帮顶</P>