程序代码：

Private Sub Form_Load()
    WindowHandle = FindWindow(vbNullString, "新建 文本文档 - 记事本")
    Debug.Print WindowHandle
    pWndProc = GetWindowLong(WindowHandle, GWL_WNDPROC)  '获取当前窗口的消息地址
    debug.assert pwndProc '这里错误。大概是权限问题。
    SetWindowLong WindowHandle, GWL_WNDPROC, AddressOf WindowProc    '把地址指向模块中的 WindowProc 回调函数

End Sub