Sub Button_save_disp_Click
Dim UserClosed As Boolean
If UserClosed Then
StateManager.ResetState("opciones_disp")
Else
StateManager.SaveState(Activity, "opciones_disp")
End If
StateManager.SaveSettings
ToastMessageShow("Configuracion guardada", True)
' ----------------------------------------------------------- Al guardar indicamos tambien que se cambie el idioma.
If es Then
Translate.File_init(LFile(lang))
Else
Translate.File_init(LFile(lang))
End If
es = es = False
Translate.ThisActivity(Activity)
End Sub