AO请教返回程序标题

<P>Sub ReportCaption()
Dim pApp As IApplication
Set pApp = Application
MsgBox pApp.Caption
End Sub

为什么我用VB调用AO后运行这段程序时 总提示我说 SET PAPP = APPLICATION要求对象呢？
有高手告诉我说这个只能在VBA里用
那我如果在二次开发里 怎么才能实现这个功能呢？</P>
<P>请高手能否给个最简单的例子就好 ，我现在毫无头绪 </P>

<P>是这样的。  你要先打开一个 IDocument （mxDocumen)对象， 然后把 这个对象的实例的 parent (也就是Arcmap的IApplication对象), 然后就可以对ArcMap 进行操作了.</P><P>8.3和 9.0都有类似的 例子代码。</P>

没有hook当然不行了。你定义了一个iapplication接口。但在VB中用Application 实现，这是错误的。因为这里application指向VB应用程序本生，而不是arcmap应用程序。

如果你的平台是8.3，那么你可以在例子里面找一个Hook.cls，里面写的很详细，如果使用9.0那么有一个接口类好像是叫IHookhelper的，你可以查查看！

<P>Dim pApp As IMxApplication
Set pApp = Application</P><P>MsgBox pApp.Caption</P><P>试一下.
</P>