ListView - перехват события изменения ширины колонок

Option Explicit
 
Private m_bSubclassInstalled    As Boolean
 
Private Sub Form_Load()
 
    m_bSubclassInstalled = SetWindowSubclass(lvwTest.hwnd, AddressOf SubclassWndProc, 1, ByVal 0&)
    
End Sub
 
Private Sub Form_Unload( _
            ByRef Cancel As Integer)
    
    If m_bSubclassInstalled Then
        
        RemoveWindowSubclass lvwTest.hwnd, AddressOf SubclassWndProc, 1
        
        m_bSubclassInstalled = False
        
    End If
    
End Sub

Option Explicit
 
Public Const WM_NOTIFY               As Long = &H4E
Public Const HDN_FIRST               As Long = -300&
Public Const HDN_BEGINTRACKW         As Long = (HDN_FIRST - 26)
Public Const HDN_ENDTRACKW           As Long = (HDN_FIRST - 27)
Public Const HDN_ITEMCHANGEDW        As Long = (HDN_FIRST - 21)
 
Public Type NMHDR
    hwndFrom    As Long
    idfrom      As Long
    code        As Long
End Type
 
Public Type NMHEADER
    hdr         As NMHDR
    iItem       As Long
    iButton     As Long
    pItem       As Long
End Type
 
Public Declare Function SetWindowSubclass Lib "comctl32" ( _
                        ByVal hwnd As Long, _
                        ByVal pfnSubclass As Long, _
                        ByVal uIdSubclass As Long, _
                        ByRef dwRefData As Any) As Long
Public Declare Function RemoveWindowSubclass Lib "comctl32" ( _
                        ByVal hwnd As Long, _
                        ByVal pfnSubclass As Long, _
                        ByVal uIdSubclass As Long) As Long
Public Declare Function DefSubclassProc Lib "comctl32" ( _
                        ByVal hwnd As Long, _
                        ByVal uMsg As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
Public Declare Sub memcpy Lib "kernel32" _
                   Alias "RtlMoveMemory" ( _
                   ByRef Destination As Any, _
                   ByRef Source As Any, _
                   ByVal Length As Long)
 
Public Function SubclassWndProc( _
                ByVal hwnd As Long, _
                ByVal lMsg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long, _
                ByVal uIdSubclass As Long, _
                ByVal dwRefData As Long) As Long
    
    Select Case lMsg
    Case WM_NOTIFY
        Dim tHdr    As NMHDR
        
        memcpy tHdr, ByVal lParam, LenB(tHdr)
 
        Select Case tHdr.code
        Case HDN_BEGINTRACKW, HDN_ITEMCHANGEDW, HDN_ENDTRACKW
            Dim tNmHdr  As NMHEADER
            
            memcpy tNmHdr, ByVal lParam, LenB(tNmHdr)
            
            Debug.Print "Index: "; tNmHdr.iItem
            
        End Select
 
    End Select
    
    SubclassWndProc = DefSubclassProc(hwnd, lMsg, wParam, lParam)
    
End Function