Private WithEvents cmbSelect As ComboBox
 
Private Sub createComboBox(Anzahl As Integer)
 
    Dim i As Integer
 
    Set cmbSelect = Me.Controls.Add("VB.CommandButton", "cmbSelect(" & Anzahl & _
      ")", Me)
 
 
    For i = 0 To (Anzahl - 1)
        With cmbSelect(i)
            .AddItem "Nachname"
            .AddItem "Vorname"
        End With
    Next i
End Sub