Dim ElCombo As ComboBox For Each ElCombo In Me.Controls ElCombo.AddItem "Anual" ElCombo.AddItem "Semestral" ElCombo.AddItem "Bimestral" ' ... etc Next