Public Class Form1
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="Form1"/> class.
    ''' </summary>
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.MaximizeBox = False
 
    End Sub
 
    ''' <summary>
    ''' Handles the Load event of the Form1.
    ''' </summary>
    Private Shadows Sub Load() Handles MyBase.Load
 
        Me.CreateRowsOfControls(RowsCount:=5I)
 
    End Sub
 
    ''' <summary>
    ''' Creates the controls.
    ''' </summary>
    ''' <param name="RowsCount">The amount of rows of controls to generate.</param>
    Private Sub CreateRowsOfControls(ByVal RowsCount As Integer)
 
        Me.SuspendLayout()
 
        For row As Integer = 1I To RowsCount
 
            For num As Integer = 1I To 5I
 
                Dim tb As New TextBox With
                    {
                        .Name = String.Format("tb_{0}.{1}", CStr(row), CStr(num)),
                        .Size = New Size(15I, 20I),
                        .Location = New Point((15I * num) + (2I * num), (20I * row) + (5I * row)),
                        .Tag = row
                    }
 
                Me.Controls.Add(tb)
 
            Next num
 
            Dim bt As New Button With
                {
                    .Name = String.Format("bt_{0}", CStr(row)),
                    .Size = New Point(120I, 20I),
                    .Text = String.Format("Desactivar fila nº{0}", CStr(row)),
                    .Location = New Point(Me.Controls(String.Format("tb_{0}.{1}", CStr(row), CStr(RowsCount))).Right + 5I, (20I * row) + (5I * row)),
                    .Cursor = Cursors.Hand,
                    .Tag = New Object() {row, True}
                }
 
            AddHandler bt.Click, AddressOf bt_Click
 
            Me.Controls.Add(bt)
 
        Next row
 
        Me.ResumeLayout()
 
    End Sub
 
    ''' <summary>
    ''' Handles the Click event of the bt controls.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub bt_Click(ByVal sender As Object, ByVal e As EventArgs)
 
        Dim bt As Button = DirectCast(sender, Button)
        Dim Row As Integer = DirectCast(bt.Tag(0I), Integer)
        Dim Disable As Boolean = DirectCast(bt.Tag(1I), Boolean)
 
        Dim tbNamePattern As String = String.Format("tb_{0}.", CStr(Row))
 
        Me.SuspendLayout()
 
        Select Case Disable
 
            Case True ' Desactivar controles
 
                bt.Text = String.Format("Activar fila nº{0}", CStr(Row))
                bt.Tag = New Object() {Row, Not Disable}
 
                ControlIterator.Disable(Of TextBox)(Me.Controls, tbNamePattern)
 
                ControlIterator.PerformAction(Of TextBox)(Me.Controls,
                                                          Sub(tb As TextBox)
                                                              tb.BackColor = Color.Black
                                                          End Sub,
                                                          ContainsName:=tbNamePattern)
 
            Case Else ' Activar controles
 
                bt.Text = String.Format("Desactivar fila nº{0}", CStr(Row))
                bt.Tag = New Object() {Row, Not Disable}
 
                ControlIterator.Enable(Of TextBox)(Me.Controls, tbNamePattern)
 
                ControlIterator.PerformAction(Of TextBox)(Me.Controls,
                                                          Sub(tb As TextBox)
                                                              tb.BackColor = SystemColors.Window
                                                          End Sub,
                                                          ContainsName:=tbNamePattern)
 
        End Select ' Disable
 
        Me.ResumeLayout()
 
    End Sub
 
End Class