vb+arcgis开发，如何才能PageLayoutControl上添加文本文字？

<P>例子里面：</P><PRE>Dim pDoc As IMxDocument, pPageLayout As IPageLayout
Dim pContainer As IGraphicsContainer, pElement As IElement
Dim pTextElement As ITextElement
Set pDoc = ThisDocument（这个是在vba里面的 ，vb这行认不出来，怎么改写？）
Set pPageLayout = pDoc.PageLayout
Set pContainer = pPageLayout
pContainer.Reset
Set pElement = pContainer.Next
While Not pElement Is Nothing
  If TypeOf pElement Is ITextElement Then
    Set pTextElement = pElement
    Debug.Print "The text for this element is:  " ; pTextElement.Text
  End If
  Set pElement = pContainer.Next
Wend</PRE><PRE> </PRE><PRE>或者给我另外的代码  谢谢</PRE>