请帮忙，看问题在哪？

<P>在我的程序里，需要监听打开和新建文档事件。声明如下变量：</P>
<P>Private WithEvents m_pDocEvents As esriArcMapUI.DocumentEvents</P>
<P>响应打开和新建文档事件代码如下：</P>
<P>Private Sub m_pDocEvents_NewDocument()
    MsgBox "m_pDocEvents_NewDocument"
End Sub</P>
<P>Private Sub m_pDocEvents_OpenDocument()
    MsgBox "m_pDocEvents_OpenDocument"
End Sub</P>
<P>但是在ArcMap打开和新建文档并没有响应以上两个消息！这是为什么，请帮忙看看！！</P>

是大海兄提到的问题，呵呵，搞定了，谢谢！上面两位大吓！！

给 m_pDocEvents赋值了吗？

dll必须先定义你用到的对象了

不是VBA环境，是动态连接库！

<P>是vba环境里吗，下面这个例子有用</P><P>Private Function MxDocument_OpenDocument() As Boolean
  Dim strPassword As String</P><P>
  '设置密码</P><P>  strPassword = "password"
  Dim strTextEntered As String
  Dim intAttempts As Integer
  Do While intAttempts <> 3
    strTextEntered = InputBox("Enter the password:")
      If strPassword = strTextEntered Then
        MsgBox "You're in...", vbOKOnly, "Welcome!!!"
      Exit Function
      ElseIf strPassword <> strTextEntered Then
        intAttempts = intAttempts + 1
      End If
  Loop
  MsgBox "Sorry, not today...", vbOKOnly, "Goodbye!!!"
  Dim pUID As New UID
  Dim pExit As ICommandItem</P><P>
  ' Use the GUID of the Exit ArcMap command</P><P>
  pUID.Value = "{119591DB-0255-11D2-8D20-080009EE4E51}"</P><P>
  ' or you can use the ProgID
  ' pUID.Value = "esriCore.MxFileMenuItem"</P><P>
  pUID.SubType = 10
  Set pExit = Application.Document.CommandBars.Find(pUID)
  pExit.Execute
    
End Function
</P><P>
 </P>