Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objLinearStyles As SolidEdgeFramework.LinearStyles
    Dim objLinearStyle As SolidEdgeFramework.LinearStyle
    Dim objLinearStyleCenter As SolidEdgeFramework.LinearStyle
    Dim objLinearStyleCPlane As SolidEdgeFramework.LinearStyle
    Dim objLinearStyleDotted As SolidEdgeFramework.LinearStyle
    Dim objLinearStyleHidden As SolidEdgeFramework.LinearStyle
    Dim objLinearStyleNormal As SolidEdgeFramework.LinearStyle
    Dim objLinearStylePhantom As SolidEdgeFramework.LinearStyle
    Dim objLinearStyleTangent As SolidEdgeFramework.LinearStyle
    ' Report errors
    Const PI = 3.14159265358979
    ' 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
    'Get the LinearStyles object
    Set objLinearStyles = objDoc.LinearStyles
    'Add new LinearStyle to the collection
    Set objLinearStyle = objLinearStyles.Add(Name:="LinearStyle1", Parent:="Visible")
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objLinearStyles = Nothing
    Set objLinearStyle = Nothing
    Set objLinearStyleCenter = Nothing
    Set objLinearStyleCPlane = Nothing
    Set objLinearStyleDotted = Nothing
    Set objLinearStyleHidden = Nothing
    Set objLinearStyleNormal = Nothing
    Set objLinearStylePhantom = Nothing
    Set objLinearStyleTangent = Nothing
End Sub