Victor Coello respondió:
Private Sub ComboBox1_Click() ComboBox1. Clear ComboBox1. AddItem "Mensual" ComboBox1. AddItem "Quincenal" ComboBox1. AddItem "10 Días" End Sub Private Sub ComboBox1_Change() If ComboBox1.Value = "Mensual" Then 'el resto de tu rutina End Sub Aver...