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 objFCF As SolidEdgeFrameworkSupport.FeatureControlFrame

    Dim objFCFStyle As SolidEdgeFrameworkSupport.DimStyle

    ' 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

    'Add a new FeatureControlFrame

    Set objFCF = objFCFs.Add(x:=0.1, y:=0.1, z:=0)

    objFCF.PrimaryFrame = "FLVB0.001MCVBA"

    Call objFCF.AddVertex(x:=0.2, y:=0.2, z:=0)

    objFCF.BreakLine = True

    'Get the DimStyle associated with the FCF

    Set objFCFStyle = objFCF.Style

    ' Release objects

    Set objApp = Nothing

    Set objDoc = Nothing

    Set objSheet = Nothing

    Set objFCFs = Nothing

    Set objFCF = Nothing

    Set objFCFStyle = Nothing

End Sub