Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objEllipses2d As SolidEdgeFrameworkSupport.Ellipses2d
    Dim objEllipse2d As SolidEdgeFrameworkSupport.Ellipse2d
    Dim objLinearStyles As SolidEdgeFrameWork.LinearStyles
    Dim objLinearStyle As SolidEdgeFrameWork.LinearStyle
    Dim objGetStyle As SolidEdgeFrameWork.LinearStyle
    Dim dblX1 As Double, dblY1 As Double, dblX2 As Double, dblY2 As Double
    ' 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
    'getting the Active Sheet object
    Set objSheet = objDoc.ActiveSheet
    'getting the Ellipses2d object
    Set objEllipses2d = objSheet.Ellipses2d
    'Create an Ellispse2d in Clockwise orientation
    Set objEllipse2d = objEllipses2d.AddByCenter(xCenter:=0.3, yCenter:=0.25, _
                                                 xMajor:=0.1, yMajor:=0, Ratio:=0.5, Orientation:=igGeom2dOrientClockwise)
    'Get the LinearStyles object
    Set objLinearStyles = objDoc.LinearStyles
    'Add new LinearStyle to the collection
    Set objLinearStyle = objLinearStyles.Add(Name:="LinearStyle1", _
                                             Parent:="Visible")
    'set the color property to blue
    objLinearStyle.Color = vbBlue
    'create a segement with LinearStyle1
    Call objEllipse2d.AddSegmentedStyle(x1:=0.3, y1:=0.2, x2:=0.3, _
                                        y2:=0.3, Style:=objLinearStyle)
    'get Segemented style
    Call objEllipse2d.GetSegmentedStyle(1, x1:=dblX1, y1:=dblY1, x2:=dblX2, y2:=dblY2, Style:=objGetStyle)

    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    Set objEllipses2d = Nothing
    Set objEllipse2d = Nothing
    Set objLinearStyles = Nothing
    Set objLinearStyle = Nothing
    Set objGetStyle = Nothing
End Sub