Private Const Private_LVSCW_AUTOSIZE As Long = LVSCW_AUTOSIZE
Private Const Private_LVSCW_AUTOSIZE_USEHEADER As Long = LVSCW_AUTOSIZE_USEHEADER
Private Enum ListViewColumnAutoSize
    AutoSizeUseData = Private_LVSCW_AUTOSIZE
    AutoSizeUseHeader = Private_LVSCW_AUTOSIZE_USEHEADER
End Enum


Private Sub Кнопка1_Click()
        ListViewAutoSizeColumns ListView8, AutoSizeUseData
End Sub
Private Sub Кнопка2_Click()
        ListViewAutoSizeColumns ListView8, AutoSizeUseHeader
End Sub

' устанавливает автоматический размер столбц(а/ов) объекта ListView
Private Function ListViewAutoSizeColumns(ListViewObject As Object, AutoSizeLevel As ListViewColumnAutoSize, Optional Column& = -1)
    ' lWidth param for fixed size
    Dim iReturn&
    With ListViewObject
        iReturn& = 1 ' возвращает 1 если у объекта не обнаружен хэндл
        If .hwnd Then
            iReturn& = 2 ' возвращает 2 если объект в неправильном виде
            If (.View = lvwList Or .View = lvwReport) Then
                If Column& = -1 Then ' если не указан конкретный столбец - изменяем все
                    For Column& = 0 To .Object.ColumnHeaders.Count - 1
                        Call SendMessage(.hwnd, LVM_SETCOLUMNWIDTH, Column&, ByVal AutoSizeLevel)
'for fixed size          SendMessage .hwnd, LVM_SETCOLUMNWIDTH, Column&, lWidth
                    Next
                Else ' изменяем указанный столбец
                    Call SendMessage(.hwnd, LVM_SETCOLUMNWIDTH, Column&, ByVal AutoSizeLevel)
'for fixed size       SendMessage .hwnd, LVM_SETCOLUMNWIDTH, Column&, lWidth
                End If
                iReturn& = 0 ' возвращает 0 при успехе
            End If
        End If
    End With
    ListViewAutoSizeColumns = iReturn&
End Function