Zooflow: Readd Load_recent_files, add second service config

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -311,4 +311,33 @@ Public Class frmAdmin_Start
             Return False
         End If
     End Function
+
+    Private Sub btnSecondServiceConnection_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnSecondServiceConnection.ItemClick
+        If My.SystemConfig.AppServerConfigDevelopment = String.Empty Then
+            Dim oAnswer = MsgBox("Es ist keine zweite Dienstkonfiguration vorhanden. Wollen Sie nun eine hinterlegen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text)
+            If oAnswer = MsgBoxResult.Yes Then
+                Dim oForm As New frmServiceConfig() With {
+                    .ServiceAddress = "",
+                    .ServiceOnline = False
+                }
+
+                oForm.ShowDialog()
+
+                My.SystemConfig.AppServerConfigDevelopment = oForm.ServiceAddress
+                My.SystemConfigManager.Save()
+            Else
+                ' Cancel
+                Exit Sub
+            End If
+        End If
+
+        Dim oServiceAddress = My.SystemConfig.AppServerConfig
+        If My.Application.Service.Client.ServerAddress = My.SystemConfig.AppServerConfig Then
+            oServiceAddress = My.SystemConfig.AppServerConfigDevelopment
+        Else
+            oServiceAddress = My.SystemConfig.AppServerConfig
+        End If
+
+        My.Application.Service.Client = New Modules.EDMI.API.Client(My.LogConfig, oServiceAddress)
+    End Sub
 End Class