pagelayoutcontrol中生成measured grid时出问题？

<P>用VB+AO实现pagelayoutcontrol中生成measured grid时，在如下蓝字处出问题：</P>
<P>  'Add MapGrid to Layout and refresh
  Dim pGraphicsContainer As IGraphicsContainer
  Dim pMapFrame As IMapFrame
  Dim pActiveView As IActiveView
  Dim pMapGrids As IMapGrids
  <FONT color=#1111ee><FONT style="BACKGROUND-COLOR: #2bd54d">Set pGraphicsContainer = pMxDoc.PageLayout</FONT>
</FONT>  Set pMapFrame = pGraphicsContainer.FindFrame(pMap)
  Set pMapGrids = pMapFrame
  pMapGrids.AddMapGrid pMapGrid
  <FONT style="BACKGROUND-COLOR: #33cc33" color=#1111ee>Set pActiveView = pMxDoc.PageLayout</FONT>
  pActiveView.PartialRefresh esriViewBackground, Nothing, Nothing</P>
<P>pMxDoc的pagelayout不适合于pagelayoutcontrol，在pagelayoutcontrol中应怎样修改？？ 急切盼望高手指点！！！   </P><img src="images/post/smile/dvbbs/em02.gif" />