Codigo De Un Programa De La Escuela

Private Sub Combo1_Click()
Call diccionario
End Sub

Private Sub Command1_Click()
boton = MsgBox("Desea salir de la aplicacion?", vbCritical + vbYesNo + vbdefaultboton2, "terminar")
If boton =6 Then
End
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "Ingles al Espanol"
Combo1.AddItem "Espanol al Ingles"
End Sub

Private Sub List1_Click()
Text1.Text = List1.Text
End SubPrivate Sub diccionario()
If Combo1.Text = "Ingles al Espanol" Then
List1.Clear
List1.AddItem "Crow"
List1.AddItem "Dog"
List1.AddItem "Cat"
List1.AddItem "Mouse"
List1.AddItem "Bunny"List1.AddItem "Fox"
List1.AddItem "Wolf"
List1.AddItem "Tiger"
List1.AddItem "White Tiger"
List1.AddItem "Lion"
End If
If Combo1.Text = "Espanol al Ingles" Then
List1.Clear
List1.AddItem "Cuervo"List1.AddItem "Perro"
List1.AddItem "Gato"
List1.AddItem "Raton"
List1.AddItem "Conejo"
List1.AddItem "Zorro"
List1.AddItem "Lobo"
List1.AddItem "Tigre"
List1.AddItem "Tigre Blanco"List1.AddItem "Leon"
End If
End Sub

Private Sub Text1_Change()
Dim idiomas As String
idioma = Text1.Text
If idioma = "Crow" Then
Label2.Caption = "Cuervo"
ElseIf idioma = "Dog" Then
Label2.Caption ="Perro"
ElseIf idioma = "Cat" Then
Label2.Caption = "Gato"
ElseIf idioma = "Mouse" Then
Label2.Caption = "Raton"
ElseIf idioma = "Bunny" Then
Label2.Caption = "Conejo"
ElseIf idioma = "Fox"Then
Label2.Caption = "Zorro"
ElseIf idioma = "Wolf" Then
Label2.Caption = "Lobo"
ElseIf idioma = "Tiger" Then
Label2.Caption = "Tigre"
ElseIf idioma = "White Tiger" Then
Label2.Caption = "TigreBlanco"
ElseIf idioma = "Lion" Then
Label2.Caption = "Leon"
ElseIf idioma = "Cuervo" Then
Label2.Caption = "Crow"
ElseIf idioma = "Perro" Then
Label2.Caption = "Dog"
ElseIf idioma = "Gato" ThenLabel2.Caption = "Cat"
ElseIf idioma = "Raton" Then
Label2.Caption = "Mouse"
ElseIf idioma = "Conejo" Then
Label2.Caption = "Bunny"
ElseIf idioma = "Zorro" Then
Label2.Caption = "Fox"...