Function WinProc(Byval hWnd As HWND, Byval uMsg As UINT, Byval wParam As WPARAM, Byval lParam As LPARAM) As LRESULT
    Select Case uMsg
        Case WM_NOTIFY
            Dim As LPNMHDR pnm
            pnm =Cast( LPNMHDR,lParam)
            if pnm then
                select case pnm->code
                    case LVN_COLUMNCLICK
                        Dim As LPNMLISTVIEW pNMLW = Cast(LPNMLISTVIEW,pnm)
                        dim as long iColumn = pNMLW->iSubItem ' здесь индекс столбца
                end select
            endif
    end select
end function