Public Const LVM_FIRST = &H1000
Public Const LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30)
Public Const LVSCW_AUTOSIZE = -1
Public Const LVSCW_AUTOSIZE_USERHEADER = -2
Public Const LVM_GETHEADER = (LVM_FIRST + 31)

Declare Function SendMessage Lib "user32.dll" Alias _
"SendMessageA" (ByVal hWnd As Long, _
ByVal Msg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long


Public Sub ResizeHeader(boolFirstColVisible As Boolean, lstv As ListView)

Dim lColumn As Long
Dim lCounter As Long

If boolFirstColVisible Then lCounter = 0 Else lCounter = 1

For lColumn = lCounter To lstv.ColumnHeaders.Count - 1
SendMessage lstv.hWnd, _
LVM_SETCOLUMNWIDTH, _
lColumn, _
LVSCW_AUTOSIZE_USERHEADER
Next


End Sub