Imports DevExpress.XtraBars.Docking2010.Views
Imports DevExpress.XtraBars.Docking2010
Imports DevExpress.XtraBars.Docking2010.Views.Widget

Public Class frmMain2
    Public Sub New()
        InitializeComponent()

        Dim oForm As New frmSplash()
        oForm.ShowDialog()
    End Sub

    Private Sub BarButtonUserSettings_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonUserSettings.ItemClick
        Dim frm As New frmUserBasics()
        'frm.MdiParent = DocumentManager1.MdiParent
        frm.Show()
    End Sub

    Private Sub frmMain2_Load(sender As Object, e As EventArgs) Handles Me.Load
        LabelCurrentUser.Caption = Environment.UserName
        LabelCurrentMachine.Caption = Environment.MachineName
        LabelCurrentVersion.Caption = My.Application.Info.Version.ToString
    End Sub

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