Traductor

CODIGO PARA UN TRADUCTOR.
Private Sub btend_Click(Index As Integer)
End
End Sub

Private Sub btlimpiar_Click(Index As Integer)
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
End Sub
Private Sub CmbPalabras_Click()
Select Case CmbPalabras.ListIndex
Case 0
Label2.Caption = "LOVE"Label3.Caption = "AMOR"
Label4.Caption = "LIEBEN"
Label5.Caption = "LJUBEZEN"
Label6.Caption = "ELSKER"
Label7.Caption = "AMORE"
Label8.Caption = "AMOUR"
Case 1
Label2.Caption = "MUSIC"
Label3.Caption= "MÚSICA"
Label4.Caption = "MUSIK"
Label5.Caption = "GLASBA"
Label6.Caption = "MUSIKK"
Label7.Caption = "MUSICA"
Label8.Caption = "MUSIQUE"
Case 2
Label2.Caption = "SOCCER"
Label3.Caption ="FUTEBOL"
Label4.Caption = "Fußball"
Label5.Caption = "NOGOMET"
Label6.Caption = "FOTBALL"
Label7.Caption = "CALCIO"
Label8.Caption = "FOOTBALL"
Case 3
Label2.Caption = "NOTEBOOK"Label3.Caption = "CUADERNO"
Label4.Caption = "NOTIZBUCH"
Label5.Caption = "KNJIGA"
Label6.Caption = "NOTEBOOK"
Label7.Caption = "TACCUINO"
Label8.Caption = "CAHIER"
Case 4
Label2.Caption = "AERONAUTIC"Label3.Caption = "AERONÁUTICO"
Label4.Caption = "LUFTFAHRT"
Label5.Caption = "Aeronautica"
Label6.Caption = "AERONAUTICAL"
Label7.Caption = "AERONAUTICA"
Label8.Caption = "AERONAUTIQUE"
Case 5Label2.Caption = "MOVIE"
Label3.Caption = "FILME"
Label4.Caption = "FILM"
Label5.Caption = "MOVIE"
Label6.Caption = "FILM"
Label7.Caption = "FILM"
Label8.Caption = "FILM"
Case 6
Label2.Caption ="ORANGE"
Label3.Caption = "LARANJA"
Label4.Caption = "ORANGE"
Label5.Caption = "ORANGE"
Label6.Caption = "ORANGE"
Label7.Caption = "ORANCIONE"
Label8.Caption = "ORANGE"
Case 7
Label2.Caption ="SHOES"
Label3.Caption = "SAPATOS"
Label4.Caption = "SCHUHE"
Label5.Caption = "NOGA"
Label6.Caption = "SKO"
Label7.Caption = "SCARPE"
Label8.Caption = "CHAUSSURES"
Case 8
Label2.Caption =...