Dim myCombos As New List(Of ComboBox)
myCombos.Add(New ComboBox)
With myCombos(0)
     .Name = "TheBox"
     .Parent = Me : .Top = 150
     .Items.AddRange(New String() _
     {"Hallo Fes", "Ich bin eine", "gelistete Combobox"})
End With