Resize button in FlowLayoutPanel

Lo ripubblico perchè avevo sbagliato sezione.

Ho un form che contiene un FlowLayoutPanel1 con dock fill a prendere tutta la dimensione del form.

Con delcodice ci devo creare dentro un numero n di button e questi butto avranno del testo con lunghezza variabile.
Il form dovrebbe ancorarsi alla parte destra del form padre. ma questo non è un problema.

Vorrei che i button avessero la stessa larghezza del form a va bene si fa con il .Width in fase di creazione.

Il io problema è che se faccio il resize del form anche i button si devono adattare alla nuova dimensione e quindi essere sempre estesi da margine sx a margine dx.

Nel codice seguente che ho provato, mi fa un errore in fase di creazione del form.

Qualcuno ha un' idea di come aggirare l' ostacolo ?

Public Class Form2

    Public mybutton(5) As Button
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Create the button dynamically And set its properties.
        Dim s As String
        s = " My Button "
        For i = 0 To 4


            mybutton(i) = New Button
            'mybutton(i).Left = 10 + (i * 15)
            'mybutton(i).Top = 10 + (i * 15)

            mybutton(i).Text = s ' il testo per adesso è fisso poi prenderà dei dati da dei campi su un db a lunghezza variabile
            mybutton(i).Tag = i ' quello che voglio scrivere nel pulsante


            mybutton(i).Dock = DockStyle.Fill

            mybutton(i).AutoSizeMode = AutoSizeMode.GrowOnly
            mybutton(i).AutoSize = True

            mybutton(i).Font = New Font("Arial", 22)

            ' mybutton(i).Width = Me.Width

            FlowLayoutPanel1.Controls.Add(mybutton(i))
            AddHandler mybutton(i).Click, AddressOf PrintMessage

        Next i

    End Sub


    Private Sub Form2_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
        Dim x As Integer
        For Each C As Button In FlowLayoutPanel1.Controls
            x = x + 1
            mybutton(x).Width = Me.Width
        Next
    End Sub

    Private Sub PrintMessage(sender As Button, e As EventArgs)
        Dim id As Integer
        id = Integer.Parse(sender.Tag) ' converte in numero 

        MessageBox.Show("Dynamic event happened! index " & id)

    End Sub

invece con quest' altro codice quello che voglio fare mi funziona ma solo col button n°4

Public Class Form3

    Dim btn As Button
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        FlowLayoutPanel1.Controls.Clear()

        For i = 0 To 4
            btn = New Button()
            btn.Name = "btn " & i
            btn.Tag = i
            btn.Text = i

            btn.AutoSizeMode = AutoSizeMode.GrowOnly
            btn.AutoSize = True

            btn.Font = New Font("Arial", 14.0F, FontStyle.Bold)
            ' btn.UseCompatibleTextRendering = true;
            btn.BackColor = Color.Green
            ' btn.Height = 57
            ' btn.Width = 116
            btn.Width = Me.Width
            btn.Dock = DockStyle.Fill
            AddHandler btn.Click, AddressOf PrintMessage


            FlowLayoutPanel1.Controls.Add(btn)

        Next i

    End Sub
    Private Sub PrintMessage(sender As Button, e As EventArgs)
        Dim id As Integer
        id = Integer.Parse(sender.Tag) ' converte in numero 

        MessageBox.Show("Dynamic event happened! index " & id)
        'MsgBox "Hai premuto il pulsante " & mybutton(i).Name & " di indice " & CStr(Index)

    End Sub

    Private Sub Form3_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
        '    'Dim x As Integer
        For Each C As Button In FlowLayoutPanel1.Controls
            '    '    x = x + 1
            btn.Width = Me.Width
        Next

    End Sub
End Class