Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objFolder As DirectoryInfo
        Dim objFileInfo As FileInfo
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objDocuments As SolidEdgeFramework.Documents = Nothing
        Dim objSheetMetalDocument As SolidEdgePart.SheetMetalDocument = Nothing
        Dim objFlatPatternModels As SolidEdgePart.FlatPatternModels = Nothing
        Dim objFlatPatternModel As SolidEdgePart.FlatPatternModel = Nothing
        Dim objTabs As SolidEdgePart.Tabs = Nothing
        Dim objTab As SolidEdgePart.Tab = Nothing
        Dim objSketch As SolidEdgePart.Sketch = Nothing
        Dim objProfile As SolidEdgePart.Profile = Nothing

        Try
            OleMessageFilter.Register()

            objFolder = GetTrainingFolder()
            objFileInfo = New FileInfo(Path.Combine(objFolder.FullName, "Sheet Metal\SE_Transition_RR.psm"))

            ' Start Solid Edge
            objApplication = Activator.CreateInstance(Type.GetTypeFromProgID("SolidEdge.Application"))
            objApplication.Visible = True
            objDocuments = objApplication.Documents
            objSheetMetalDocument = objDocuments.Open(objFileInfo.FullName)

            ' Get the flat pattern model object in the test case
            objFlatPatternModels = objSheetMetalDocument.FlatPatternModels
            objFlatPatternModel = objFlatPatternModels.Item(1)

            ' Get the Tabs Object for the Model
            objTabs = objFlatPatternModel.Tabs

            ' Get a sketch & profile and create the tab
            objSketch = objSheetMetalDocument.Sketches.Item(1)
            objProfile = objSketch.Profiles.Item(1)

            ' Add tab
            objTab = objTabs.AddTab(objProfile, SolidEdgePart.FeaturePropertyConstants.igRight)

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

    Function GetTrainingFolder() As DirectoryInfo
        Dim objInstallData As SEInstallDataLib.SEInstallData = Nothing
        Dim objInstallFolder As DirectoryInfo = Nothing
        Dim objTrainingFolder As DirectoryInfo = Nothing

        Try
            objInstallData = New SEInstallDataLib.SEInstallData
            objInstallFolder = New DirectoryInfo(objInstallData.GetInstalledPath())
            objTrainingFolder = New DirectoryInfo(Path.Combine(objInstallFolder.Parent.FullName, "Training"))
        Catch
        Finally
            If Not (objInstallData Is Nothing) Then
                Marshal.FinalReleaseComObject(objInstallData)
                objInstallData = Nothing
            End If
        End Try

        Return objTrainingFolder
    End Function
End Module