Meerdere comboboxes...

With cmbQcFactorStep1
        .AddItem "mvar"
        .AddItem "var"
        .AddItem "kvar"
        .AddItem "Mvar"
End With

With cmbQcFactorStep1
        .AddItem "mvar"
        .AddItem "var"
        .AddItem "kvar"
        .AddItem "Mvar"
End With

Dim items() As String = {"mvar", "var", "..."}
For Each item As String In items
    uwComboBox.Items.Add(item)
Next

Dim items() As String = {"mvar", "var", "..."}
For Each item As String In items
    uwComboBox.Items.Add(item)
Next

For [u]nummervancombobox[/u] = 1 to 12
With cmbQcFactorStep [u]nummervancombobox[/u]
.AddItem "mvar"
.AddItem "var"
.AddItem "kvar"
.AddItem "Mvar"
End With
next

For [u]nummervancombobox[/u] = 1 to 12
With cmbQcFactorStep [u]nummervancombobox[/u]
.AddItem "mvar"
.AddItem "var"
.AddItem "kvar"
.AddItem "Mvar"
End With
next

'Array van items aanmaken
Dim items() As String = {"mvar", "var", "..."}
'Loopen en zoeken naar elke Combobox in de ControlCollection van je Form
For Each box As ComboBox In Me.Controls
    'Elke item uit de array in de huidige combobox plaatsen
    For Each i As String In items
        box.Items.Add(i)
    Next
Next

'Array van items aanmaken
Dim items() As String = {"mvar", "var", "..."}
'Loopen en zoeken naar elke Combobox in de ControlCollection van je Form
For Each box As ComboBox In Me.Controls
    'Elke item uit de array in de huidige combobox plaatsen
    For Each i As String In items
        box.Items.Add(i)
    Next
Next

Dim items() As String = {"mvar", "var", "..."}
For Each box As ComboBox In Me.Controls.OfType(Of ComboBox)()
    For Each i As String In items
        box.Items.Add(i)
    Next
Next

Dim items() As String = {"mvar", "var", "..."}
For Each box As ComboBox In Me.Controls.OfType(Of ComboBox)()
    For Each i As String In items
        box.Items.Add(i)
    Next
Next