Combo1.AddItem Text1.Text
Private Sub Form_Load()Combo1.AddItem "Hola"Combo1.AddItem "a"Combo1.AddItem "todos"End Sub
Private Sub combo1_click()Text1.Text = Combo1.List(Combo1.ListIndex)End Sub