VB.NET - Auto resize listview

    Protected Overrides Sub WndProc(ByRef message As Message)
        Const WM_PAINT As Integer = &HF

        Select Case message.Msg
            Case WM_PAINT
                If ListView1.View = View.Details AndAlso ListView1.Columns.Count > 0 Then
                    ListView1.Columns(ListView1.Columns.Count - 1).Width = -2
                End If
                Exit Select
        End Select

        MyBase.WndProc(message)
    End Sub