Dim Combobox(20) As Combobox

Combobox(1) = Me.Combobox1
Combobox(2) = Me.Combobox2
usw.....

Dim index As Integer = 20 'Anzahl Comboboxen
For Each Ctl As Control In Me.Controls
If TypeOf Ctl Is Combobox Then
Combobox(index) = CType(Ctl, ComboBox)
index -= 1
End If
Next Ctl