Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim currentCommandBarMode As Object = Nothing

        Try
            OleMessageFilter.Register()

            ' Start Solid Edge
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")

            ' Determine the current command user interface mode.
            objApplication.GetGlobalParameter(SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalCommandBarMode, currentCommandBarMode)

            Select Case currentCommandBarMode
                Case SolidEdgeConstants.SECommandBarModeConstants.seApplicationGlobalShowCommandBarMode
                    ' CommandBarMode = seApplicationGlobalShowCommandBarMode
                Case SolidEdgeConstants.SECommandBarModeConstants.seApplicationGlobalShowQuickBarMode
                    ' CommandBarMode = seApplicationGlobalShowQuickBarMode
            End Select

            ' Set the command user interface mode to Command Bar Mode.
            objApplication.SetGlobalParameter( _
                SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalCommandBarMode, _
                SolidEdgeConstants.SECommandBarModeConstants.seApplicationGlobalShowCommandBarMode)

            ' Set the command user interface mode to Quick Bar Mode.
            objApplication.SetGlobalParameter( _
                SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalCommandBarMode, _
                SolidEdgeConstants.SECommandBarModeConstants.seApplicationGlobalShowQuickBarMode)

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub

End Module