VB应用程序怎样能得到Active Exe对象的消息？SetWindowLong返回值非0，但消息并没有传入消息处理函数

Question

Private Sub Command1_Click()
    Dim oInstance As Object
    Dim nSubHwnd As Long
    Dim nSubProc As Long
    Dim nResult As Long
    '创建Active Exe的实例，并显示（有界面）
    Set oInstance = CreateObject("prjTest.clsTest")
    oInstance.Showme    '得到句柄，返回值正确（与Spy＋＋中的值一样）
    nSubHwnd = FindWindow(vbNullString, "Hello")'GWL_WNDPROC参数返回值为0，用GWL_HINSTANCE参数返回非0
nSubProc = GetWindowLong(nSubHwnd, GWL_HINSTANCE)  'GWL_WNDPROC'设置实例的消息处理函数，返回值为非0，但消息并没有传入MainProc    
nResult = SetWindowLong(nSubHwnd, GWL_HINSTANCE, AddressOf MainProc)End Sub