MS Flowform

GUIs.ZooFlow/frmServiceConfig.vb

@@ -25,15 +25,15 @@ Public Class frmServiceConfig
 
             Client = New Client(My.LogConfig, oIPAddress, oPort)
 
-            lblStatus.Text = "Verbindung wird hergestellt..."
+            lblStatus.Text = "Trying to create connection..."
             Dim oResult = Client.Connect()
 
             If oResult = True Then
                 My.SystemConfig.AppServerConfig = $"{oIPAddress}:{oPort.ToString}"
                 My.SystemConfigManager.Save()
-                lblStatus.Text = "Verbindung hergestellt."
+                lblStatus.Text = "Successfully Connected to service"
             Else
-                lblStatus.Text = "Verbindung fehlgeschlagen."
+                lblStatus.Text = "Connection not successful."
                 ' TODO: Make a connection test that is as elaborate as this one  :D
                 'Select Case oResult
                 '    Case ClassService.ConnectionTestResult.NotFound
@@ -48,7 +48,6 @@ Public Class frmServiceConfig
             End If
 
             DialogResult = DialogResult.OK
-            Close()
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Fehler beim Verbindungsaufbau", MsgBoxStyle.Critical, Text)