Private Const LVSCW_AUTOSIZE As Integer = -1
    Private Const LVM_SETCOLUMNWIDTH As Integer = &H1000 + 30
 
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                                                                   ByVal hwnd _
                                                                   As Integer, _
                                                                   ByVal wMsg _
                                                                   As Integer, _
                                                                   ByVal wParam _
                                                                   As Integer, _
                                                                   ByVal lParam _
                                                                   As Integer) _
                                                                   As Integer
 
    Private Sub ResizeColumns(ByVal lv As ListView)
        For a As Integer = 0 To lv.Columns.Count - 1
            SendMessage(lv.Handle.ToInt32, LVM_SETCOLUMNWIDTH, a, _
              LVSCW_AUTOSIZE)
        Next
    End Sub