Add Command line args parsing

GUIs.ZooFlow/ApplicationEvents.vb

@@ -2,6 +2,7 @@
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging.LogConfig
+Imports System.Text.RegularExpressions
 
 Namespace My
     ' Für MyApplication sind folgende Ereignisse verfügbar:
@@ -39,6 +40,13 @@ Namespace My
 
             _Logger = LogConfig.GetLogger()
             _Logger.Debug("Starting Client Suite..")
+
+            Dim oCommandLineArgs As New ClassCommandlineArgs(LogConfig)
+            Dim oArgs = Environment.GetCommandLineArgs().Skip(1).ToList()
+            oCommandLineArgs.Parse(oArgs)
+
+            CommandLineFunction = oCommandLineArgs.FunctionName
+            CommandLineArgs = oCommandLineArgs.FunctionArgs
         End Sub
 
         Public Sub App_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown