Public Shared Function SetAutoColumnWidth(ByRef LV As _
  System.Windows.Forms.ListView, Optional ByVal IncludeHeader As Boolean = _
  True, Optional ByVal LockUpdate As Boolean = False) As Boolean
        Try
            If LockUpdate Then LV.BeginUpdate()
 
            Dim LParm As Int32
            If IncludeHeader Then
                LParm = LVSCW_AUTOSIZE_USEHEADER
            Else
                LParm = LVSCW_AUTOSIZE
            End If
 
            For i As Integer = 0 To LV.Columns.Count - 1
                SendMessageLong(LV.Handle, LVM_SETCOLUMNWIDTH, i, LParm)
            Next i
            If LockUpdate Then LV.EndUpdate()
 
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function