Как добавить необходимые Items в динамически добавленную группу ComboBox

Function CrCombBox() As Boolean
 
        For i As Integer = 0 To 14
            cmb(i) = New ComboBox
            cmb(i).Width = 49
            cmb(i).Visible = True
            cmb(i).Location = New Point(10 + i * 50)
            With cmb(i)
                .Top = 10
                .Items = (i + 1) & "-(1)"
                
            End With
            Me.Controls.Add(cmb(i))
        Next

cmb(i).Items.Add("item text")

.Text = (i + 1) & "-(2)"

cmb(i).Items.Add(i + 1 & "-(0)")
cmb(i).Items.Add(i + 1 & "-(1)") 
cmb(i).Items.Add(i + 1 & "-(2)")

.Add((i + 1).ToString & "-(0)")

Function CrLists() As String
        Dim i As Integer, strout As String
        For i = 0 To 14
            lists(i + 1) = cmb(i).Text
            strout = strout & lists(i + 1) & ";"
        Next
        Mid(strout, Len(strout), 1) = "."
        CrLists = strout
    End Function

Dim cmb(14) As ComboBox
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    For i As Integer = 0 To 14
        cmb(i) = New ComboBox
        With cmb(i)
            .Width = 49
            .Visible = True
            .Location = New Point(10 + i * 50, 10)
            .Items.Add((i + 1).ToString & "-(1)")
            .SelectedIndex = 0
        End With
        Me.Controls.Add(cmb(i))
    Next
 
'смотрим результат
MsgBox(CrLists())
 
End Sub
Function CrLists() As String
    Dim lists(14) As String
    For i = 0 To 14
        lists(i) = cmb(i).Text
    Next
    Return String.Join(";"c, lists) & "."
End Function

MsgBox(CrLists())

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 14
            cmb(i) = New ComboBox
            With cmb(i)
                .Width = 49
                .Visible = True
                .Location = New Point(10 + i * 50, 10)
                .Items.Add((i + 1).ToString & "-(1)")
                .Items.Add((i + 1).ToString & "-(2)")
                .SelectedIndex = 0
            End With
            Me.Controls.Add(cmb(i))
        Next
 
        'смотрим результат
        Label1.Text = CrLists()
 
    End Sub
    Function CrLists() As String
        Dim lists(14) As String
        For i = 0 To 14
            lists(i) = cmb(i).Text
        Next
        Return String.Join(";"c, lists) & "."
    End Function

Public Class Form1
Private cmb(14) As ComboBox
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    For i As Integer = 0 To 14
        cmb(i) = New ComboBox
        With cmb(i)
            .Width = 49
            .Visible = True
            .Location = New Point(10 + i * 50, 10)
            .Items.Add((i + 1).ToString & "-(1)")
            .Items.Add((i + 1).ToString & "-(2)")
            .Items.Add((i + 1).ToString & "-(3)")
            .SelectedIndex = 0
        End With
        Me.Controls.Add(cmb(i))
        AddHandler cmb(i).SelectedIndexChanged, AddressOf cmbSelChanged
    Next
End Sub
Function CrLists() As String
    Dim lists(14) As String
    For i = 0 To 14
        lists(i) = cmb(i).Text
    Next
    Return String.Join(";"c, lists) & "."
End Function
Private Sub cmbSelChanged(sender As Object, e As EventArgs)
    MsgBox(CrLists())
End Sub
End Class