Crear botones dinamicamente

[moradazo]

Código:

For i As Integer = 0 To (cont - 1)
            'For que recorre la cantidad de botones en el archivo de texto
            Dim Boton As New Button 'Declaracion de boton
            Boton.Name = (TextBox1.Lines(i) & (i)) + i.ToString() 'Nombre del boton
            Boton.Text = TextBox1.Lines(i) 'Texto en el boton            
            Boton.Height = 22 'Tamaño alto de cada boton
            Boton.Width = 137 'Tamaño largo de cada boton
            Boton.Location = New Point(TxtPoint.X + 10, TxtPoint.Y) 'Localizacion en el Form del boton            TxtPoint.Y += Boton.Height + 4
            AddHandler Boton.Click, AddressOf xClick
            'Finalmente agrega el boton
            Controls.Add(Boton)
        Next i