关于ao请教

我想用vb调用arcmap，但是IAPPLICATION这个接口用application实例化不了
就是
dim p as IApplication
set p=Application
在vb中运行出错，不是在vba出错
我装的是arcmap8.3,我想知道在vb的工程菜单的引用是哪个部件，或者是
我对application这个接口理解有误。 谢谢赐教。

例子里很多，可以看看哟

Option Explicit

Implements IMenuDef
Implements IRootLevelMenu

Private Property Get IMenuDef_Caption() As String
  IMenuDef_Caption = "Zoom Menu"
End Property

Private Sub IMenuDef_GetItemInfo(ByVal pos As Long, ByVal itemDef As esriCore.IItemDef)
  Select Case pos
  Case 0
    ' Set the item in the menu to the ProgID of multiItem
    itemDef.ID = "ZoomMultiItem.ZoomMulti"
  End Select
End Sub

Private Property Get IMenuDef_ItemCount() As Long
  IMenuDef_ItemCount = 1
End Property

Private Property Get IMenuDef_Name() As String
  IMenuDef_Name = "ZoomMenu"
End Property