Private Sub Form_Load()

    Dim objApp As SolidEdgeFramework.Application

    Dim objDoc As SolidEdgeDraft.DraftDocument

    Dim objSheet As SolidEdgeDraft.Sheet

    Dim objFCFs As SolidEdgeFrameworkSupport.FeatureControlFrames

    Dim objFCFApp As SolidEdgeFramework.Application

    ' Local variables to be declared here

    ' Create/get the application with specific settings

    On Error Resume Next

    Set objApp = GetObject(, "SolidEdge.Application")

    If Err Then

        Err.Clear

        Set objApp = CreateObject("SolidEdge.Application")

        Set objDoc = objApp.Documents.Add("SolidEdge.DraftDocument")

        objApp.Visible = True

    Else

        Set objDoc = objApp.ActiveDocument

    End If

    On Error GoTo 0

    'Get the Active Sheet object

    Set objSheet = objDoc.ActiveSheet

    'Get the FeatureControlFrames collection object

    Set objFCFs = objSheet.FeatureControlFrames

    'Get the Application object from the FCF collection

    Set objFCFApp = objFCFs.Application

    ' Release objects

    Set objApp = Nothing

    Set objDoc = Nothing

    Set objSheet = Nothing

    Set objFCFs = Nothing

    Set objFCFApp = Nothing

End Sub