beccatevi sto codice

codice:
Sub AutoArrangeColumnWidth(ByVal cListView As ListView)
  Dim i As Integer, x As Integer
  Dim gr As Graphics
  Dim itemSizeMax As Integer
  cListView.BeginUpdate()
  gr = Me.CreateGraphics
  For x = 0 To cListView.Columns.Count - 1
    itemSizeMax = 0
    For i = 0 To cListView.Items.Count - 1
      If gr.MeasureString(cListView.Items(i).SubItems(x).Text, cListView.Font).Width > itemSizeMax Then
      itemSizeMax = gr.MeasureString(cListView.Items(i).SubItems(x).Text, cListView.Font).Width
      End If
    Next
    cListView.Columns(x).Width = itemSizeMax
  Next
  cListView.Refresh()
  cListView.EndUpdate()
End Sub
vi adatta la listview al contenuto !!!!!!!


CIAUZZZZZZZZ