Zooflow: Fix wrong image on dragdrop, prepare removal of manual database config

GUIs.ZooFlow/frmServiceConfig.vb

@@ -32,6 +32,7 @@ Public Class frmServiceConfig
                 My.SystemConfig.AppServerConfig = $"{oIPAddress}:{oPort.ToString}"
                 My.SystemConfigManager.Save()
                 lblStatus.Text = "Successfully Connected to service"
+
             Else
                 lblStatus.Text = "Connection not successful."
                 ' TODO: Make a connection test that is as elaborate as this one  :D
@@ -46,8 +47,6 @@ Public Class frmServiceConfig
                 '        lblStatus.Text = "Unbekannter Fehler."
                 'End Select
             End If
-
-            DialogResult = DialogResult.OK
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Fehler beim Verbindungsaufbau", MsgBoxStyle.Critical, Text)