Единый обработчик событий для нескольких схожих элементов

Private Sub TB_TextChanged(sender As System.Object, e As System.EventArgs) Handles TB(1-15).TextChanged

 Dim tbArr(14) As TextBox
        For i = 0 To 14
            AddHandler tbArr(i).Click, AddressOf tbArr_Click ' где tbArr_Click имя процедуры обработчика
        Next

Private Sub TB_TextChanged(sender As System.Object, e As System.EventArgs) Handles TB1.TextChanged, B2.TextChanged, B3.TextChanged, B4.TextChanged

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For I As Integer = 1 To 15
            AddHandler CType(Controls("TB" & I), TextBox).TextChanged, AddressOf TxtChange
            Controls("TB" & I).BackColor = Color.LightPink
        Next
    End Sub
 
    Sub TxtChange(ByVal sender As TextBox, ByVal e As System.EventArgs)
        If sender.TextLength > 0 Then
            sender.BackColor = Color.LightGreen
        Else
            sender.BackColor = Color.LightPink
        End If
    End Sub

GroupBox1.Controls("TB" & I)

Iterator Function AllControls(control As Control) As IEnumerable(Of Control)
    For Each childCtrl In control.Controls
        Yield childCtrl
        For Each grandChildCtrl In AllControls(childCtrl)
            Yield grandChildCtrl
        Next
    Next
End Function

For Each c In AllControls(Me).OfType(Of Button)()
    ...
Next

Iterator Function AllControls(control As Control) As IEnumerable(Of Control)
    For Each childCtrl In control.Controls
        Yield childCtrl
        For Each grandChildCtrl In AllControls(childCtrl)
            Yield grandChildCtrl
        Next
    Next
End Function

Imports System.Runtime.CompilerServices
 
Module ControlExtensions
 
    <Extension()> _
    Public Function GetAllControls(ctrl As Control) As Control()
        Dim controls As New List(Of Control)
        InnerGetAllControls(ctrl, controls)
        Return controls.ToArray()
    End Function
 
    Private Sub InnerGetAllControls(ctrl As Control, controls As List(Of Control))
        For Each childCtrl As Control In ctrl.Controls
            controls.Add(childCtrl)
            InnerGetAllControls(childCtrl, controls)
        Next
    End Sub
 
End Module

For Each btn In Me.GetAllControls().OfType(Of Button)()
    ...
Next

Dim MenuKey(2000) As Button 'для индексов рабочих кнопок
Dim x As Integer 'временная, для работы с номерами кнопок
 
For Each btn As Control In Controls 'перебор объектов 0 уровня
            If TypeOf btn Is GroupBox Then 'если контейнер - входим в него
                For Each btn1 As Control In btn.Controls 'пребор объектов второго уровня
                    If TypeOf btn1 Is GroupBox Then 'если контейрей - входим в него
                        For Each btn2 As Control In btn1.Controls 'перебор объектов 3 уровня
                            If LSet(btn2.Name, 6) = "Button" Then 'проверяем, что имя нужных кнопок (на уровне 3) и
                                BtnSave(btn2) 'уходим в процедуру привязки к индексу и адресацию обработки нажания
                            End If
                Next
                    ElseIf LSet(btn1.Name, 6) = "Button" Then 'проверяем, что имя нужных кнопок (на уровне 2) и
                        BtnSave(btn1) 'уходим в процедуру привязки к индексу и адресацию обработки нажания
                    End If
                Next
                'на главной форме нет нужных кнопок 
            End If
        Next
     End Sub
 
    Private Sub BtnSave(ByVal BtnIn)
        x = CInt(Mid(BtnIn.Name, 7)) 'из имени выделяем номер кнопки
        If x >= 51 Then 'у кнопок с меньшими номерами другие функции 
            MenuKey(x) = BtnIn 'приравниваем к массиву для удобства обращения, как в VB6 ))
            MenuKey(x).Text = 0 'устанавливаем числовое значение
            AddHandler MenuKey(x).MouseDown, AddressOf key_MouseDown 'прописываем обработку нажатия
        End If
    End Sub