Private Sub Form_Load()
    Dim lngCount As Long
    Dim l As Long
    Dim lngColIndex As Long
    Dim HdrHwnd As Long
    Dim structHI As HD_ITEM
    Dim structNMHDR As NMHDR
    Dim structNMHEADER As NMHEADER
    
    HdrHwnd = FindWindowEx(ListView1.hwnd,  0 , "msvb_lib_header", vbNullString)
    
    With structNMHDR
        .hWndFrom = HdrHwnd
        .code = HDN_ITEMCLICK
    End With

    lngCount = SendMessageLong(HdrHwnd, HDM_GETITEMCOUNT,  0 &,  0 &)
    For l =  0  To lngCount -  1 
        lngColIndex = SendMessageLong(HdrHwnd, HDM_ORDERTOINDEX, l,  0 &)
        If CBool(SendMessage(HdrHwnd, HDM_GETITEM, lngColIndex, structHI)) Then
            With structNMHEADER
                .hdr = structNMHDR
                .iItem = lngColIndex
                .HDI = structHI
            End With
            Call SendMessage(ListView1.hwnd, WM_NOTIFY,  0 &, structNMHEADER)
        End If
    Next

End Sub