Sub LVSize(lWidth As Long)
  Dim oColHeader As ColumnHeader
 
  For Each oColHeader In ListView1.ColumnHeaders
    oColHeader.Width = lWidth
  Next
 
End Sub

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As _
  Long ' C0010
 
Private Const LVM_SETCOLUMNWIDTH = &H1000 + 30
Private Const LVSCW_AUTOSIZE = -1
Private Const LVSCW_AUTOSIZE_USEHEADER = -2
 
 
Public Sub LVColumnWidth(oListView As MSComctlLib.ListView, Optional _
  AccountForHeaders As Boolean = False)
  Dim col     As Long
  Dim LParm   As Long
 
  On Error GoTo error
  If AccountForHeaders Then
    LParm = LVSCW_AUTOSIZE_USEHEADER
  Else
    LParm = LVSCW_AUTOSIZE
  End If
 
  For col = 1 To oListView.ColumnHeaders.Count - 1
    SendMessage oListView.hwnd, LVM_SETCOLUMNWIDTH, col, ByVal LParm
  Next col
 
  Exit Sub
error:
  'goErr.ErrSave "LVColumnWidth"
  'goErr.ErrRestore
End Sub