SysTreeView32 通知消息的处理问题

Private Sub ctlMsgHook_GetWindowMessage(Result As Long, ByVal cHwnd As Long, ByVal Message As Long, ByVal wParam As Long, ByVal lParam As Long)



'// 这是树形列表控件的父窗口的子类化过程, 用于接收\处理 systreeview32 的通知消息

    

    Dim tvHDR           As NMTREEVIEW

    Dim cHDR             As NMHDR

    Dim HandleOfRoot    As Long

    Dim tItem           As TV_ITEM

    

    Select Case Message

        Case WM_NOTIFY

            CopyMemory cHDR, ByVal lParam, Len(cHDR)



            If cHDR.hwndFrom = PG.n_hWndTreeList Then

            '///   PG.n_hWndTreeList = 树形列表的句柄



                Select Case cHDR.code

                    Case NM_CLICK: Debug.Print "NM_CLICK", Timer

                    Case NM_DBLCLK: Debug.Print "NM_DBLCLK", Timer

                    Case NM_RCLICK: Debug.Print "NM_RCLICK", Timer

                    

                    Case TVN_ITEMEXPANDED

                         '//  这是项目展开或收起的通知消息

                         '// 这里开始是问题重点  ■■■



                         CopyMemory tvHDR, ByVal lParam, Len(tvHDR)



                         '//  本次的 Copymemory 取的是 NMTREEVIEW 内容

                         '//  没有copymemory和以下的内容,这个代码没问题, 但我需要对这个通知消息响应

                         '//  加了copymemory, 展开的动作时没问题

                         '//  但是在收起的动作时, 程序崩溃...

                         '//  在调试时, 如果在copymemory下面有debug.print,能显示出读出了正确的消息

                         '//  但是立刻也就崩溃了, 错误原因不详, 应该是copymemory的问题, 没有下面的代码

                         '//  只有copymemory一样出错, so.... 现在不知道怎么办了...

                         '//  到底是怎么回事?  我这个通知消息响应过程错了了吗?

                         Select Case tvHDR.ItemNew.hItem

                                Case PG.n_FolderExeProject, PG.n_FolderDLLProject, PG.n_FolderVxdProject

                                Case Else



                                    tItem.Mask = TVIF_HANDLE Or TVIF_IMAGE Or TVIF_SELECTEDIMAGE

                                    tItem.hItem = tvHDR.ItemNew.hItem

                                    If tvHDR.Actionz = 2 Then tItem.iImage = FolderOpen - 101& Else tItem.iImage = FolderClose - 101&

                                    tItem.iSelectedImage = tItem.iImage

                                    SendMessage PG.n_hWndTreeList, TVM_SETITEM, ByVal 0&, tItem



                                    Debug.Print "TVN_ITEMEXPANDED", tvHDR.Actionz, tvHDR.ItemNew.hItem, PG.n_FolderExeProject, PG.n_FolderForm

                         End Select



                         Result = -1

                         Exit Sub

                            

                    Case TVN_ITEMEXPANDING

                        Debug.Print "TVN_ITEMEXPANDING"

    

                    

                    Case TVN_SINGLEEXPAND: Debug.Print "TVN_SINGLEEXPAND"

                    

                    Case TVN_SELCHANGED: Debug.Print "TVN_SELCHANGED"

                    

                    Case Else ': Debug.Print tvHDR.hDR.code, Timer

                End Select

            End If

            

             

        Case WM_SYSCOMMAND

            Result = 1: Exit Sub



    End Select

    

    Result = ctlMsgHook.CallDefaultWindowProc(cHwnd, Message, wParam, lParam)

    

End Sub

SysTreeView32 控件创建在自定义控件上;

如果觉得这个子类化代码不够形象, 内容少, 我可以上传这个控件的全部代码

实在没办法了, 太郁闷了... 先是被 CreateMappedBitmap 折腾了两天,

又被现在这个问题折腾的.......

有对这个问题了解的, 请不吝赐教....