Как написать процедуру, которая обрабатывала бы изменения в любом из контролов, представленных на форме

Public Class Form1
 
    'Создаем массив текстовых полей
    Dim TextBoxes() As TextBox = New TextBox(19) {}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To 19
            TextBoxes(i) = New TextBox()
 
            TextBoxes(i).Location = New Point(10, 20 * i)
            TextBoxes(i).Name = "TextBox" & (i)
            Me.Controls.Add(TextBoxes(i))
            'Добавляем обработчик события для всех кнопок
            AddHandler TextBoxes(i).TextChanged, AddressOf TextBoxes_Changes
        Next
        'Добавляем обработчик события для определенного текстового поля
        AddHandler TextBoxes(3).TextChanged, AddressOf TextBox4_Changes
    End Sub
 
    Private Sub TextBoxes_Changes(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'получаем измененный контрол
        Dim tb As TextBox = CType(sender, TextBox)
        'здесь можно задать логику изменения контрола - как одну для всех, так и различную
        Select Case tb.Name
            Case "TextBox0" : tb.Left += 10
            Case "TextBox1" : tb.Enabled = False
            Case "TextBox2" : tb.BackColor = Color.Chocolate
            Case "TextBox4" : MessageBox.Show("Control " & tb.Name & " has been changed")
        End Select
    End Sub
    Private Sub TextBox4_Changes(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MessageBox.Show("tExtBox4 has been changed")
    End Sub
End Class

    Dim TextBoxes() As TextBox = New TextBox(38) {}
    Dim ComboBoxes() As ComboBox = New ComboBox(10) {}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 0 To 38 ' у меня 39 текстбоксов
            TextBoxes(i) = New TextBox()
            TextBoxes(i).Name = "TextBox" & (i)
            Me.Container.Add(TextBoxes(i))    ' В этом месте выдает ошибку "Ссылка на объект не указывает на экземпляр объекта."
            AddHandler TextBoxes(i).TextChanged, AddressOf TextBoxes_Changes
        Next
    End Sub
 
    Private Sub TextBoxes_Changes(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tb As TextBox = CType(sender, TextBox)
        Select Case tb.Name
            Case "textbox1"
                Try
                    Tin_tr = tb.Text
                    tb.BackColor = Color.Green
                Catch
                    tb.Text = ""
                End Try
        End Select
    End Sub

    Dim TextBoxes() As TextBox = New TextBox(38) {}
    'Dim ComboBoxes() As ComboBox = New ComboBox(10) {}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ctrl As Control
        Dim nameCtrl As String
        For Each ctrl In GroupBox4.Controls
            For i = 40 To 58
                nameCtrl = "TextBox" & i
                If ctrl.Name = nameCtrl Then
                    ctrl.Enabled = False
                End If
            Next
        Next
        RadioButton1.Checked = True
 
        For i = 0 To 38
            TextBoxes(i) = New TextBox()
            TextBoxes(i).Name = "TextBox" & (i)
            Me.Controls.Add(TextBoxes(i))
            AddHandler TextBoxes(i).TextChanged, AddressOf TextBoxes_Changes
        Next i
        AddHandler TextBoxes(1).TextChanged, AddressOf TextBoxes_Changes
    End Sub
 
    Private Sub TextBoxes_Changes(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tb As TextBox = CType(sender, TextBox)
        Select Case tb.Name
            Case "textbox1"
                Try
                    Tin_tr = tb.Text
                    tb.BackColor = Color.Green
                Catch
                    tb.Text = ""
                End Try
            Case "textbox2"
                Try
                    Tout_tr = tb.Text
                    tb.BackColor = Color.Green
                Catch ex As Exception
                    tb.Text = ""
                End Try
        End Select
    End Sub

Dim TextBoxes() As TextBox = New TextBox(38) {}

Dim TextBoxes(38) As TextBox

Select Case tb.Name
            Case "textbox1"

  Dim TextBoxes(38) As TextBox
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For i = 1 To 38
            TextBoxes(i) = New TextBox()
            TextBoxes(i).Name = "TextBox" & (i)
            Me.Controls.Add(TextBoxes(i))
            AddHandler TextBoxes(i).TextChanged, AddressOf TextBoxes_Changes
        Next i
 
    End Sub
 
    Private Sub TextBoxes_Changes(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tb As TextBox = CType(sender, TextBox)
        Select Case tb.Name
            Case "TextBox1"
                Try
                    Tin_tr = tb.Text
 
                    tb.BackColor = Color.Aquamarine
 
                Catch
                    tb.Text = ""
                End Try
            Case "TextBox2"
                Try
                    Tout_tr = tb.Text
                    tb.BackColor = Color.Green
                Catch ex As Exception
                    tb.Text = ""
                End Try
        End Select
    End Sub

Private Sub TextBoxes_Changes(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tb As TextBox = CType(sender, TextBox)
        Select Case tb.Name
            Case "TextBox1" : Tin_tr = tb.Text : tb.BackColor = Color.Aquamarine
            Case "TextBox2"
                Try
                    Tout_tr = tb.Text
                    tb.BackColor = Color.Green
                Catch ex As Exception
                    tb.Text = ""
                End Try
        End Select
    End Sub

        For i = 1 To 39
            MsgBox(Form1.TextBoxes(i).Name)
            Form1.TextBoxes(i).Text = "500"
 
        Next

MsgBox(Form1.TextBoxes(i).Name)

For Each textboxControl As Control In Me.Controls
            If TypeOf (textboxControl) Is TextBox Then
                textboxControl.Text = "500"
            End If
        Next

For Each textboxControl As Control In Me.Controls       
            If TypeOf (textboxControl) Is TextBox Then
                textboxControl.Text = "500"
            ElseIf TypeOf (textboxControl) Is GroupBox Then
                For Each textboxControl1 As Control In textboxControl.Controls
                    If TypeOf (textboxControl1) Is TextBox Then
                        textboxControl1.Text = "500"
                    End If
                Next
            End If
        Next