Update Test Git-Server

DPM2016/frmMain.vb

@@ -54,6 +54,7 @@ Public Class frmMain
         Next
     End Sub
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
         AddHandler DevComponents.DotNetBar.LocalizationKeys.LocalizeString, AddressOf LocalizeString
         Dim args As String() = Environment.GetCommandLineArgs()
         Try
@@ -121,11 +122,11 @@ Public Class frmMain
                 If f.DialogResult = DialogResult.Abort Then
                     Application.Exit()
                     Me.Close()
-                        Exit Sub
-                    End If
-                    PatientToolStripMenuItem_Click(sender, e)
+                    Exit Sub
                 End If
-                Else
+                PatientToolStripMenuItem_Click(sender, e)
+            End If
+        Else
             MsgBox("Die Datenbank konnte nicht gefunden werden. Die Anwendung wird geschlossen.", vbExclamation)
             Application.Exit()
             End