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

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Dim frm As New frmFileTest
        frm.MdiParent = Me
        frm.Show()
    End Sub
End Class