MS Integration Services und fileOps

EDMI_ClientSuite/frmMain.vb

@@ -0,0 +1,29 @@
+Public Class frmMain
+    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
+
+    Private Sub BarButtonItemBasicUser_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBasicUser.ItemClick
+        frmUserBasics.ShowDialog()
+    End Sub
+End Class