[求助]vb+ao 打开Mxd 并在arcmap中显示

小弟刚学AO，做了个按钮，代码如下，怎么在ARCMAP中加载不了地图啊？<BR>请高手帮个忙，指点指点。<BR><BR>Private Sub ICommand_OnClick()<BR>  FrmPub.ComOpen.DialogTitle = "打开农业地理信息管理文档"<BR>  FrmPub.ComOpen.Filter = "农业地理信息管理文档 (*.mxd)|*.mxd"<BR>  FrmPub.ComOpen.InitDir = App.Path<BR>  FrmPub.ComOpen.ShowOpen<BR>  Dim sFilePath As String<BR>  sFilePath = FrmPub.ComOpen.FileName<BR>  m_pApp.OpenDocument sFilePath<BR>End Sub

<P>你是在vb里写，还是vba里写的？</P>
<P>你可以看看论坛顶贴，如何编写一个icommand</P>
<P><a href="http://www.gisempire.com/bbs/dispbbs.asp?boardID=62;ID=44131;page=1" target="_blank" >http://www.gisempire.com/bbs/dispbbs.asp?boardID=62;ID=44131;page=1</A></P>