Agregar archivos de proyecto.

GestionGrupoSanchoToro/Application.xaml.vb

@@ -0,0 +1,25 @@
+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