Private Sub Combo1_Change()If Combo1.Text = "ESPAÑA" ThenList1.AddItem = "ola"End IfEnd Sub
list1.AddItem("ola")
If List1.AddItem("hola") Then MsgBox "hola"
If List1.AddItem "hola" Then MsgBox "hola"
Private Sub Combo1_Click()If Combo1.Text = "ESPAÑA" ThenList1.AddItem ("ola")End IfEnd Sub