Как обратиться к ComboBox'у если его нет на форме, он создается програмно

Public Class Form1
  
    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 10
            comboboxes(i) = New ComboBox()
            comboboxes(i).Location = New Point(250, 30 * i + 200)
            comboboxes(i).Name = "combobox" & (i)
            Me.Controls.Add(comboboxes(i))
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                         Handles Button1.Click
         'а вот здесь к примеру так 
                 TextBox1.text = ComboBox1.text
         'только вот проблема, комбобокса еще нету а мы в другой процедуре...
    End Sub
End Class

 Dim WithEvents MyEvents As New Button 'Что делает эта строчка ?
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Btn As New Button With {.Text = "Button"}
        MyEvents = Btn
        Me.Controls.Add(Btn)
    End Sub
 
    Sub MyNewButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyEvents.Click
' MyNewButton с потолка взялась или ... ?
        MsgBox("Hello, World!")
    End Sub

MyEvents = Btn

MyNewButton_Click

Handles MyEvents.Click

MyEvents = Btn

ByVal sender As System.Object, ByVal e As System.EventArgs

ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs

comboboxes(3).Text
Me.Controls("combobox" & 3).Text

sender.BackColor = Color.Red

       
    Sub CheckedListBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckedListBox1.LostFocus
        Dim lab() As Label = New Label(CheckedListBox1.CheckedItems.Count) {}
        For i = 0 To CheckedListBox1.CheckedItems.Count - 1
            lab(i) = New Label()
            lab(i).Location = New Point(217, 30 * i + 230)
            lab(i).Name = CheckedListBox1.CheckedItems(i)
            lab(i).Text = CheckedListBox1.CheckedItems(i)
            Me.TabPage5.Controls.Add(lab(i))
        Next
        Dim CBox() As ComboBox = New ComboBox(CheckedListBox1.CheckedItems.Count) {}
        For i = 0 To CheckedListBox1.CheckedItems.Count - 1
            CBox(i) = New ComboBox()
            CBox(i).Width = (500)
            CBox(i).Location = New Point(368, 30 * i + 230)
            Dim Ячейка As Integer = 1
            Do Until Exc.Range("F" & Ячейка).Value Is Nothing
                CBox(i).Items.Add(Exc.Range("F" & Ячейка).Value)
                Ячейка += 1
            Loop     'до тех пор пока следующая ячейка не будет пустой
            CBox(i).Name = "CBox" & (i)
            Me.TabPage5.Controls.Add(CBox(i))
        Next
    End Sub
 
    
    Public Sub Кнопка_Создать_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Кнопка_Создать.Click
        For i As Integer = 1 To CheckedListBox1.CheckedItems.Count
            Dim ИмяЛиста As String = CheckedListBox1.CheckedItems(i - 1)
            With Exc
                .sheets(ИмяЛиста).activate()
                .range("AV12").value = (Format(DateTimePicker3.Value, "d" & "." & "MM" & "." & "yyyy")) ' дата составления документов
                .range("C28").value = DateTimePicker1.Value.Day 'Командировка с "Число"
                .range("G28").value = (Format(DateTimePicker1.Value, "dd MMMM").Remove(0, 3)) 'Командировка с "Месяц"
                .range("U28").value = (Format(DateTimePicker1.Value, "yy")) 'Командировка с "год"
                .range("AD28").value = DateTimePicker2.Value.Day 'Командировка по "Число"
                .range("AH28").value = (Format(DateTimePicker2.Value, "dd MMMM").Remove(0, 3)) 'Командировка по "Месяц"
                .range("AV28").value = (Format(DateTimePicker2.Value, "yy")) 'Командировка по "год"
                .range("C26").value = TextBox1.Text 'Количество суток
                For s As Integer = 1 To CheckedListBox1.CheckedItems.Count
                   .range("D23").value = sender.cbox(s).text '!!! ВОТ ТУТ ВСЕ ИЗ ЗА ЭТОЙ СТРОЧКИ !!!
                Next
            End With
        Next
    End Sub

Public Class Form1
    Dim WithEvents Кнопка As New Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        For i As Integer = 1 To 5
            Dim Btn As Button = New Button
            Кнопка = Btn
            Btn.Location = New Point(50, 50 * i + 100)
            Btn.Name = "Btn" & (i)
            Btn.Text = Btn.Name
            Me.Controls.Add(Btn)
        Next
    End Sub
 
    Sub Создание_Кнопки(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Кнопка.HandleCreated
        MsgBox("Я создалась ! Меня зовут -    " & Кнопка.Name)
    End Sub
 
    Sub MyNewButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Кнопка.Click
        MsgBox("Меня зовут  -   " & sender.Name)
    End Sub
 
End Class

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        For i As Integer = 1 To 5
            Dim Btn As Button = New Button
            Btn.Location = New Point(50, 50 * i + 100)
            Btn.Name = "Btn" & (i)
            Btn.Text = Btn.Name
            AddHandler Btn.Click, MyNewButton_Click
            AddHandler Btn.HandleCreated, Создание_Кнопки
            Me.Controls.Add(Btn)
        Next
    End Sub
 
    Sub Создание_Кнопки(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Я создалась ! Меня зовут -    " & sender.Name)
    End Sub
 
    Sub MyNewButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Меня зовут  -   " & sender.Name)
    End Sub
 
End Class

Me.Controls("btn3").Text = "я кнопка"