Dim res As Int
Select limba
Case "eng"
If schimb Then res=Msgbox2("Please restart aplication","Language","Yes","","Not now",atentie)
Case "fra"
If schimb Then res=Msgbox2("Veuillez redémarrer l'application","Langue","Oui","","Pas maintenant",atentie)
Case "ger"
If schimb Then res=Msgbox2("Va rog sa restartati aplicatia","Limba","Restart","","Nu acum",atentie)
Case "esp"
If schimb Then res=Msgbox2("Por favor, reinicie la aplicación","Idioma","Si","","Ahora no",atentie)
Case "ita"
If schimb Then res=Msgbox2("Riavvia l'applicazione", "Lingua", "Si", "", "Non ora",atentie)
Case Else
res=Msgbox2("Please restart aplication","Language","Yes","","Not now",atentie)
End Select
If res=DialogResponse.POSITIVE Then
Activity.Finish
StartActivity(Me)
End If