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 When you use a ListView control, would you like to easily resize all your columns so they're the same size? The following code will do the trick: |