Listwiew en uygun sütun genişliği

[acar6783]

Listwiewda sütun genişliğini sayfadaki ilgili sütundan alması için bir kod düzenledim fakat tam ölçülerde olmuyor.
Bunun için farklı bir yöntem varmıdır?

Sayfadaki sütun genişlikleri sabit değil.
EntireColumn.AutoFit ile sürekli veri geldikçe değişiyor.

 For i = 1 To 32


        .ColumnHeaders.Item(i + 1).Width = rp.Cells(1, i).ColumnWidth * 6

        Next i

 

[acar6783]

 For i = 1 To 32


 ölçü = 6.5
 If rp.Cells(1, i).ColumnWidth < 5 Then ölçü = 10
          .ColumnHeaders.Item(i + 1).Width = rp.Cells(1, i).ColumnWidth * ölçü

        Next i

Bu şekilde bir çözüm buldum fakat daha mantıklı ve kalıcı bir çözüm olursa daha iyi olur