Option Explicit
 
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
'API Constants
Private Const LVM_FIRST = &H1000
 
'  Public Sub stellt die Breite der Spalten im Listview automatisch
Public Sub LV_AutoSizeColumn(LV As Object, Optional Column _
                                 As ColumnHeader = Nothing)
 Dim C As ColumnHeader
 If Column Is Nothing Then
  For Each C In LV.ColumnHeaders
    SendMessage LV.hWnd, LVM_FIRST + 30, C.Index - 1, -1
  Next
 Else
    SendMessage LV.hWnd, LVM_FIRST + 30, Column.Index - 1, -1
 End If
 LV.Refresh
End Sub