Dim myCombos As New List(Of ComboBox) `Deklarationsteil der Form
 
'Z.B. m Form_Load-Ereignis
 
myCombos.Add(New ComboBox)
myCombos.Add(New ComboBox With _
{.Name = "AnotherCombo", .Parent = Me, .Top = 200})
 
With myCombos(0)
    .Name = "TheBox"
    .Parent = Me : .Top = 150
    .Items.AddRange _
    (New String() {"Hallo Fes", "Ich bin eine", "gelistete Combobox"})
    AddHandler .SelectedIndexChanged, AddressOf myCombos_SelectedIndexChanged
End With
With myCombos(1)
    .Items.AddRange(New String() {"Ereignisse", "sind schwierig", "für Fes"})
    AddHandler .SelectedIndexChanged, AddressOf myCombos_SelectedIndexChanged
End With
 
'Die Routine zur Verarbeitung der SelectedIndexChanged-Ereignisse der Combos ...
Private Sub myCombos_SelectedIndexChanged _
     (ByVal sender As Object, ByVal e As System.EventArgs)
     Dim usedcombo As ComboBox = CType(sender, ComboBox)
     TextBox1.Text = _
     usedcombo.Name & ": " & CType(usedcombo.SelectedItem, String)
End Sub