Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objBSplns As SolidEdgeFrameworkSupport.BSplineCurves2d
    Dim objBSpln1 As SolidEdgeFrameworkSupport.BSplineCurve2d
    Dim objRelns As SolidEdgeFrameworkSupport.Relationships2d
    Dim objArc As SolidEdgeFrameworkSupport.Arc2d
    Dim objArcs As SolidEdgeFrameworkSupport.Arcs2d
    Dim MyArray(9) As Double
    Dim sDumpStatus As String    ' Used for temporary storage of datadump return string
    ' 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.PartDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    'Define an Array of Points
    MyArray(0) = 0
    MyArray(1) = 0
    MyArray(2) = 0.03
    MyArray(3) = 0.02
    MyArray(4) = 0.04
    MyArray(5) = 0.01
    MyArray(6) = 0.05
    MyArray(7) = 0.08
    MyArray(8) = 0.07
    MyArray(9) = 0.04
    'Create a BSplineCurves collection object
    Set objBSplns = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:= _
                                                        objDoc.RefPlanes(1)).BSplineCurves2d

    'Create a BSplineCurve object
    Set objBSpln1 = objBSplns.AddByPoints(Order:=4, ArraySize:=5, Array:=MyArray())
    ' Create an Arcs collection object
    Set objArcs = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:= _
                                                      objDoc.RefPlanes(1)).Arcs2d
    ' Create an Arc object
    Set objArc = objArcs.AddByStartAlongEnd(xStart:=0.01, yStart:=0.01, xAlong:=0.05, _
                                            yAlong:=0.02, xEnd:=0.09, yEnd:=0)
    ' Add a Fillet Relation between the Arc and the SplineCurve
    Call objArcs.AddAsFillet(Obj1:=objArc, Obj2:=objBSpln1, Radius:=0.005, xDirection _
                                                                           :=0.1, yDirection:=-0.1)
    ' Get the Relationships Property
    Set objRelns = objBSpln1.Relationships
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBSplns = Nothing
    Set objBSpln1 = Nothing
    Set objRelns = Nothing
    Set objArc = Nothing
    Set objArcs = Nothing
End Sub