Zooflow: Readd Load_recent_files, add second service config

GUIs.ZooFlow/frmServiceConfig.vb

@@ -11,21 +11,21 @@ Public Class frmServiceConfig
 
     Private ConnectionChanged As Boolean = False
 
+    Public Property ServiceAddress As String = ""
+    Public Property ServiceOnline As Boolean = False
+
     Private Sub frmServiceConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
         Logger = My.LogConfig.GetLogger()
 
-        If My.SystemConfig.AppServerConfig <> String.Empty Then
-            Dim oAddress = Client.ParseServiceAddress(My.SystemConfig.AppServerConfig)
+        If ServiceAddress <> String.Empty Then
+            Dim oAddress = Client.ParseServiceAddress(ServiceAddress)
             txtServiceAddress.Text = oAddress.Item1
             txtServicePort.Text = oAddress.Item2
         End If
-        If Not IsNothing(My.Application.Service.Client) Then
-            If My.Application.Service.Client.IsOnline Then
-                txtStatus.Text = STATUS_CONNECTED
-            End If
+        If ServiceOnline Then
+            txtStatus.Text = STATUS_CONNECTED
         End If
 
-
         txtServiceAddress.Focus()
     End Sub
 
@@ -41,11 +41,13 @@ Public Class frmServiceConfig
             Dim oResult = Client.Connect()
 
             If oResult = True Then
-                My.SystemConfig.AppServerConfig = $"{oIPAddress}:{oPort}"
-                My.SystemConfigManager.Save()
+                ServiceAddress = $"{oIPAddress}:{oPort}"
+                ServiceOnline = True
                 txtStatus.Text = STATUS_CONNECTED
 
             Else
+                ServiceAddress = ""
+                ServiceOnline = True
                 txtStatus.Text = STATUS_FAILED
                 ' TODO: Make a connection test that is as elaborate as this one  :D
                 'Select Case oResult