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
  ' Bei 0 anfangen!!! (in worten: Null)
  For col = 0 To oListView.ColumnHeaders.Count - 1
    SendMessage oListView.hwnd, LVM_SETCOLUMNWIDTH, col, ByVal LParm
  Next col
 
  Exit Sub
error:
  Debug.Print Err.Number
  Debug.Print Err.Description
End Sub