MS ClientSuite1

EDMI_ClientSuite/Form1.vb

@@ -0,0 +1,21 @@
+Public Class Form1
+    Public Sub New()
+        Dim splash As New frmSplash()
+        Try
+            splash.ShowDialog()
+        Catch ex As Exception
+            'ClassLogger.Add($"Error in Splash: {ex.Message}")
+        End Try
+        Try
+            ' Dieser Aufruf ist für den Designer erforderlich.
+            InitializeComponent()
+
+            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+            Me.MenueUser.Ribbon = RibbonControl1
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+End Class