Private Sub Form_Load()
    Dim objApp As SolidEdgeframework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objPBCurve As solidedgegeometry.ParamBSplineCurve
    Dim lngOrder As Long
    Dim lngNumPoles As Long
    Dim lngNumKnots As Long
    Dim bRational As Boolean
    Dim bClosed As Boolean
    Dim bPeriodic As Boolean
    Const TESTFILE = "T:\vbtests\testcases\freeform.par"
    ' 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
    Call objDoc.Close
    ' opening the test case file
    Set objDoc = objApp.Documents.Open(TESTFILE)
    ' getting a ParamBSplineCurve from the test case
    Set objPBCurve = objDoc.Models(1).Body.Shells(1).Faces(1).Loops(1).EdgeUses(1).Geometry
    ' getting the BSpline2dInfo for the ParamBSplineCurve object
    Call objPBCurve.GetBSpline2dInfo(Order:=lngOrder, NumPoles:=lngNumPoles, NumKnots:=lngNumKnots, _
                                     Rational:=bRational, Closed:=bClosed, Periodic:=bPeriodic)
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objPBCurve = Nothing
End Sub