From 7e79695c18c1f8c2c52c18db025e6a86d2465f1e Mon Sep 17 00:00:00 2001
From: Stefan Hutter <info@shub.ch>
Date: Sat, 18 Dec 2021 10:28:43 +0100
Subject: [PATCH] Update Test Git-Server

---
 .vs/DPM2016/v16/.suo | Bin 430080 -> 430080 bytes
 DPM2016/frmMain.vb   |   9 +++++----
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/.vs/DPM2016/v16/.suo b/.vs/DPM2016/v16/.suo
index 1953884aa43255c5e610f113954787fb59285605..9cc0b007f90d27910c69a1db1ab726fb7c13c2f0 100644
GIT binary patch
delta 249
zcmZozAl0xyYJveH!$d=ARz?N}hL;-yrI}b1_MZN~xqxi~<0KXX#`wvGEYd9hfnag~
ziwuNOz#+rw4^-|1#LAPWa#%AaPrk^}&-i?DBCEIoNG&^121L6uGccq8*{VRC3B><E
zf<TY~WM=_!B@j<u!5OiL&1upZmCY&|e;79_cs(dxWWluQkPO>qnSD<f7ad}n+;B!?
zv&NYl?2FDZExPt=(G{j;ml&A@dx5%}fVhK+fuR*h|DP_%#TdLf#lwP;vjE5!0s86h
Y#KP#dYm9BznA)x}w_Rgdc8zrx00A;uZ~y=R

delta 593
zcmYk%F-RL>6bJBoUvkOCL<b{nNUpU)z${9Xj2R@*G!#s2phI=B7(_QKaWGYs5Q0=~
zlYD8fjoPNsCe$f<fow(Ej$LfU$>D}V9i2pkYX4s?m<K=JyZ62K@!ev{y;yQ*{ls#8
z9@!*GQhMj1hgtTD_1}Xh`ZW7Y+^+;9R-D{|+t3MjU<_K}67dH@sGVSg3(-XMpl$&R
zh;Lq3B4$zKW!JyVRoSJ8h6o;%y)?<6*gTKKh2vPdi#LrT#~}gY;#p)dE@G;w7CX(6
zX4i9~@8vrwXU9O(M(Y2BekLm+$0|-zu!L^zsjm?@pb65}?G(?qtGass*GxX<TUf^F
z3ar8lcnMj^K^{01;1#?E4c@?8D8d@7!v?&A_fUclP=-y|f{##vDu}=SguKlpy&8K=
zyI)j`t`2vTNt%_kp-JlHiIE33O5*i%pzSBgXBS)e5TSKN%{Tdta1a05*3W0cQ4>A8
zT4c`|KMhBfc}y*cNwLZk_iDQL`;oO0AXYv+*J1_stueGhLDFJB$<=WEpku1|$dNH9
PW3Y^2${6N~A=mx_$D-J4

diff --git a/DPM2016/frmMain.vb b/DPM2016/frmMain.vb
index 180c428..735d1c2 100644
--- a/DPM2016/frmMain.vb
+++ b/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