Public Const LVCF_FMT = &H1
Public Const LVCF_IMAGE = &H10

Public Const LVCFMT_IMAGE = &H800 'IE 3+ only
Public Const LVCFMT_BITMAP_ON_RIGHT = &H1000

'SendMessage function
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

'=======================================================

Private Sub ListView1_ColumnClick(Index As Integer, ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Dim lvFormat As LV_COLUMN
    Dim i As Integer
    Dim SK As Integer
    SK = ListView1(Index).SortKey 'запоминаем предыдущий ключ сортировки
    If ColumnHeader.Index = ColStructMas(Index).StartTimeN +  1  Then
'..........................
    Else
        If ColumnHeader.Index =  1  Then Exit Sub 'сортировку по иконке не производим
        If (SK = ColumnHeader.Index -  1 ) Then 'ключ сортировки не меняется,меняем порядок сортировки
            If ListView1(Index).SortOrder = lvwAscending Then
                ListView1(Index).SortOrder = lvwDescending
                'установка иконки "Descending"
                'ListView1(Index).ColumnHeaders(SK + 1).Icon = "Descending"
                With lvFormat
                    .mask = LVCF_FMT Or LVCF_IMAGE
                    .fmt = LVCFMT_IMAGE Or LVCFMT_BITMAP_ON_RIGHT
                    .iImage = ImageListHead.ListImages("Descending").Index -  1 
                End With
                Call SendMessage(ListView1(Index).hwnd, LVM_SETCOLUMN, SK, lvFormat) 'SK=sortkey(не меняется)
            Else
                ListView1(Index).SortOrder = lvwAscending
                'установка иконки "Ascending"
                'ListView1(Index).ColumnHeaders(SK + 1).Icon = "Ascending"
                With lvFormat
                    .mask = LVCF_FMT Or LVCF_IMAGE
                    .fmt = LVCFMT_IMAGE Or LVCFMT_BITMAP_ON_RIGHT
                    .iImage = ImageListHead.ListImages("Ascending").Index -  1 
                End With
                Call SendMessage(ListView1(Index).hwnd, LVM_SETCOLUMN, SK, lvFormat) 'SK=sortkey(не меняется)
            End If
        Else 'если ключ сортировки меняется, порядок сортировки делаем по возрастанию
            ListView1(Index).SortOrder = lvwAscending
            ListView1(Index).SortKey = ColumnHeader.Index -  1 
            ListView1(Index).ColumnHeaders(SK +  1 ).Icon =  0 
            'установка иконки "Ascending"
            ListView1(Index).ColumnHeaders(ColumnHeader.Index).Icon = "Ascending"
            With lvFormat
                .mask = LVCF_FMT Or LVCF_IMAGE
                .fmt = LVCFMT_IMAGE Or LVCFMT_BITMAP_ON_RIGHT
                .iImage = ImageListHead.ListImages("Ascending").Index -  1 
            End With
            Call SendMessage(ListView1(Index).hwnd, LVM_SETCOLUMN, ColumnHeader.Index -  1 , lvFormat)
            'ColumnHeader.Index - 1=new sortkey(меняется)
        End If
        'ListView1(Index).Sorted = True
    End If