Imports System.Configuration
Imports System.Globalization
Imports System.Threading
Imports System.Windows.Threading
Imports DevExpress.Xpf.Core

Namespace GrupoSanchoToro
    ''' <summary>
    ''' Interaction logic for App.xaml
    ''' </summary>
    Partial Public Class App
        Inherits Application
        Private Sub OnAppStartup_UpdateThemeName(sender As Object, e As StartupEventArgs)
            DevExpress.Xpf.Core.ApplicationThemeHelper.UpdateApplicationThemeName()
        End Sub

        Private Sub App_DispatcherUnhandledException(sender As Object, e As DispatcherUnhandledExceptionEventArgs) Handles Me.DispatcherUnhandledException
            MsgBox(e.Exception.Message)
        End Sub

        Private Sub App_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
            Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("es-ES")
        End Sub
    End Class
End Namespace