Sub traducao
If kv.GetSimple("linguagem") = "Português" Then
btgamestart.Text = "INICIAR JOGO"
btlinguagem.Text = "LINGUAGEM"
btajuda.Text = "AJUDA"
lb1paineltempofim.Text = "O TEMPO ACABOU!"&CRLF&"VOCÊ ENCONTROU O NÚMERO ESCONDIDO?"
bt1paineltempofim.Text = "NÃO!"
bt2paineltempofim.Text = "SIM..."
btsair.Text = "SAIR"
bt1salvaranking.Text = "PRONTO!"
lb1voceperdeu.Text = "VOCÊ PERDEU.." &CRLF& "NÃO FOI DESTA VEZ..."&CRLF&"NÃO DESISTA!"
lb1voceganhou.Text = "VOCÊ GANHOU.." &CRLF& "CONTINUE ASSIM"&CRLF&"PRONTO PARA O PRÓXIMO NÍVEL?"
lb1dialogo1.Text = "O OBJETIVO É SIMPLES, RASPAR A TELA COM SEU (DEDO) E ENCONTRAR A SEQUÊNCIA DE NÚMEROS ESCONDIDA ANTES DO TEMPO ACABAR."&CRLF&CRLF&"PRONTO PARA JOGAR?"
bt1dialogo1.Text = "NÃO..."
bt2dialogo1.Text = "CLARO!"
lb1pedirnumero.Text = "DIGITE O NÚMERO QUE VOCÊ ENCONTROU NO CAMPO ABAIXO..."
bt1pedirnumero.Text = "PRONTO!"
bt1voceganhou.Text = "PRONTO..."
bt1ranking.Text = "VOLTAR"
lb1salvaranking.Text = "QUAL É O SEU APELIDO?"
lb1sair.Text = "DESEJA REALMENTE SAIR?"
bt1sair.Text = "SIM"
bt2sair.Text = "NÃO"
stcarregando = "CARREGANDO..."
stsalvando = "SALVANDO..."
'''''''''''
lb1help.Text = "SEU OBJETIVO NESTE JOGO É SIMPLES, RASPAR COM O (DEDO) E ENCONTRAR A SEQUÊNCIA DE NÚMEROS ESCONDIDA NA TELA, A CADA LEVEL VAI DIMINUINDO O TEMPO, AS IMAGENS VÃO ALTERANDO E A DIFICULDADE VAI AUMENTANDO, GANHA QUEM CONSEGUIR IR MAIS LONGE NESTE JOGO."
If plinguagem.Visible = True Then plinguagem.Visible = False
Else
lb1salvaranking.Text = "WHATS YOUR NICKNAME?"
btlinguagem.Text = "LANGUAGE"
btgamestart.Text = "START GAME"
lb1paineltempofim.Text = "THE TIME IS OVER!"&CRLF&"HAVE YOU FOUND THE NUMBER?"
bt1paineltempofim.Text = "NO!"
bt2paineltempofim.Text = "YES..."
btajuda.Text = "HELP"
btsair.Text = "EXIT"
lb1dialogo1.Text = "THE OBJECTIVE IS SIMPLE, SCRATCH SCREEN WITH YOUR (FINGER) AND FIND THE HIDDEN NUMBERS BEFORE TIME IS OVER." & CRLF & CRLF & "READY TO PLAY?"
bt1dialogo1.Text = "NO..."
bt2dialogo1.Text = "OF COURSE!"
lb1voceperdeu.Text = "YOU HAVE LOST.." & CRLF & "IS NOT THIS TIME" & CRLF & "DO NOT GIVE UP!"
lb1voceganhou.Text = "YOU WON!.." & CRLF & "CONTINUE SO" & CRLF & "READY TO THE NEXT LEVEL?"
lb1pedirnumero.Text = "ENTER THE NUMBER THAT YOU FOUND THE FIELD BELOW ..."
bt1pedirnumero.Text = "DONE!"
bt1voceganhou.Text = "READY..."
bt1ranking.Text = "BACK"
bt1salvaranking.Text = "DONE"
lb1help.Text = "YOUR OBJECTIVE IN THIS GAME IS SIMPLE, SCRATCH WITH (FINGER) AND FIND THE FOLLOWING NUMBERS HIDDEN ON SCREEN, EVERY LEVEL WILL DECREASING THE TIME, CHANGE THE IMAGES AND THE DIFFICULTY INCREASES, THE WINNER AND IS WHO ACHIEVE HIGHER LEVEL. "
stcarregando = "LOADING..."
stsalvando = "SAVING..."
lb1sair.Text = "DO YOU REALLY WANT TO EXIT?"
bt1sair.Text = "YES"
bt2sair.Text = "NO"
If plinguagem.Visible = True Then plinguagem.Visible = False
End If
End Sub