RedimColumns

Sub ResizeListView(ListView As ComctlLib.ListView)
Dim head As ColumnHeader
With ListView
For Each head In .ColumnHeaders
head.Width = .Width / .ColumnHeaders.Count
Next
End With
End Sub