runtime button array in vb.net

Public Class Form1

    'to catch Click event ;)
    WithEvents oBtn As Button
    
    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Dim oDt As DataTable = Nothing
        Dim i As Integer = 0, btn As Button = Nothing

        'GetData() function reurns DataTable
        oDt = GetData()
        'enumerate through the collection of rows
        For i = 0 To oDt.Rows.Count - 1
            'create new button
            btn = New Button
            With btn
                .Parent = Me
                .Left = 8
                .Top = i * 24 + 8
                .Text = oDt.Rows(i).Item("MyIntegerColumn").ToString
                .Name = "Button" & i.ToString
                AddHandler btn.Click, AddressOf oBtn_Click
            End With
        Next

    End Sub

    'change to your needs ;)
    Private Function GetData() As DataTable
        Dim oDT As DataTable = Nothing, oRow As DataRow = Nothing
        Dim i As Integer = 0

        Try
            oDT = New DataTable("myIntegerData")
            oDT.Columns.Add(New DataColumn("MyIntegerColumn", GetType(System.Int32)))
            For i = 1 To 10
                oRow = oDT.NewRow()
                oRow.Item("MyIntegerColumn") = i
                oDT.Rows.Add(oRow)
            Next


        Catch ex As Data.DataException
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        End Try


        Return oDT
    End Function

    Private Sub oBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles oBtn.Click
        MsgBox(sender.Name, MsgBoxStyle.Information, "Message")
    End Sub
End Class