Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objProfile As SolidEdgePart.Profile
    Dim objProfCollection As Object
    ' Local variables to be declared here
    Dim lngStatus As Long
    ' 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
    On Error GoTo 0
    'Create a Profile object
    Set objProfile = objDoc.ProfileSets.Add.Profiles.Add(pRefPlaneDisp:=objDoc.RefPlanes(1))
    'Draw few entities on the profile
    With objProfile
        Call .Circles2d.AddByCenterRadius(0, 0, 0.01)
        Call .Circles2d.AddByCenterRadius(0.01, 0.01, 0.02)
        Call .Circles2d.AddByCenterRadius(0.02, 0.02, 0.03)
        Call .Circles2d.AddByCenterRadius(0.03, 0.03, 0.04)
        Call .Circles2d.AddByCenterRadius(0.04, 0.04, 0.05)
        Call .Circles2d.AddByCenterRadius(0.05, 0.05, 0.06)
    End With
    'Validate the Profile
    lngStatus = objProfile.End(igProfileClosed)
    Set objProfCollection = objProfile.Parent
    For Each objProfile In objProfCollection.Profiles
        Call objProfile.Delete
    Next
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objProfile = Nothing
    Set objProfCollection = Nothing
End Sub