MS

app/DD-Record-Organiser/frmSplash.vb

@@ -1,7 +1,6 @@
 Imports System.ComponentModel
 
 Public NotInheritable Class frmSplash
-
     'TODO: Dieses Formular kann einfach als Begrüßungsbildschirm für die Anwendung festgelegt werden, indem Sie zur Registerkarte "Anwendung"
     '  des Projekt-Designers wechseln (Menü "Projekt", Option "Eigenschaften").
     Private InitSteps As Integer = 6
@@ -12,6 +11,13 @@ Public NotInheritable Class frmSplash
 
     End Sub
 
+    Private Sub frmSplash_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
+        If e.KeyCode = Keys.Escape Then
+            ESC_Hidden = True
+        End If
+       
+    End Sub
+
 
     Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         'Richten Sie den Dialogtext zur Laufzeit gemäß den Assemblyinformationen der Anwendung ein.  
@@ -69,6 +75,7 @@ Public NotInheritable Class frmSplash
 
             bw.ReportProgress(CalcProgress(2), "Initializing Database")
             If Init.InitDatabase() = True Then
+
                 System.Threading.Thread.Sleep(500)
 
                 bw.ReportProgress(CalcProgress(3), "Initializing Basic-Configuration")