Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then

If IsNumeric(TextBox1.Text) Then

MsgBox "Por favor, solo letras", 16, "Verifica"

TextBox1.SelStart = 0

TextBox1.SelLength = Len(TextBox1.Text)

End If

End If

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()

If ComboBox1.Text = "Rosa" Then

Label1.BackColor = QBColor(12)

End If

If ComboBox1.Text = "Montaña" Then

Label1.BackColor = QBColor(10)

End If

If ComboBox1.Text = "Sol" Then

Label1.BackColor = QBColor(14)

End If

End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub ComboBox2_Click()

If ComboBox2.Text = "Hola" Then

Label2.Caption = "Hola, compañero"

End If

If ComboBox2.Text = "¿Como estas?" Then

Label2.Caption = "Bien :D, Gracias!"

End If

If ComboBox2.Text = "Que lindo programarte" Then

Label2.Caption = "Muchas Gracias"

End If

If ComboBox2.Text = "¿Nancy es la mejor?" Then

Label2.Caption = "Si"

End If

End Sub

Private Sub CommandButton1_Click()

Dim salir As Byte

salir = MsgBox("Estas seguro que quieres salir?", 32 + 4, "Salir...")

If salir = 6 Then

End

End If

End Sub

Private Sub UserForm_Activate()

ComboBox1.AddItem "Rosa"

ComboBox1.AddItem "Montaña"

ComboBox1.AddItem "Sol"

ComboBox2.AddItem "Hola"

ComboBox2.AddItem "¿Como estas?"

ComboBox2.AddItem "Que lindo programarte"

ComboBox2.AddItem "¿Nancy es la mejor?"

End Sub