Option Explicit
Dim WithEvents myCombo As ComboBox
 
Private Sub Form_Load()
  Set myCombo = Me.Controls.Add("VB.ComboBox", "myCombo")
  With myCombo
    .Move 0, 0
    .AddItem "Eintrag 1"
    .AddItem "Eintrag 2"
    .ListIndex = 0
    .Visible = True
  End With
End Sub