Idiomas

Con este código tu podrás elegir cualquier país que tu hayas indicado en el comboBox y se mostrara el idioma que se habla en ese país.


Private Sub cbopaises_Click()
If cbopaises.Text = "mexico" Then
txtidioma.Text = "castellano"
End If

If cbopaises.Text = "españa" Then
txtidioma.Text = "español"
End If

If cbopaises.Text = "italia" Then
txtidioma.Text = "italiano"
End If

If cbopaises.Text = "portugal" Then
txtidioma.Text = "portugues"
End If

If cbopaises.Text = "china" Then
txtidioma.Text = "chino"
End If

End Sub