Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objModel As SolidEdgePart.Model
    Dim objEdges As Object
    Dim objEdgeArray(1 To 1) As SolidEdgeGeometry.Edge
    Dim objRounds As SolidEdgePart.Rounds
    Dim objRound As SolidEdgePart.Round
    Dim dblRadiusArray(1 To 1) As Double
    Dim lngCount As Long
    Const TESTFILE = "T:\vbtests\testcases\cube.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)
    Set objModel = objDoc.Models(1)
    Set objRounds = objModel.Rounds
    ' *** creating a simple round on a single edge
    ' defining the StartRadius and EndRadius for the rounding an edge
    Set objEdges = objModel.ExtrudedProtrusions(1).Edges(EdgeType:=igQueryAll)
    Set objEdgeArray(1) = objEdges(1)
    dblRadiusArray(1) = 0.005
    ' creating the round feature
    Set objRound = objRounds.Add(NumberOfEdgeSets:=1, EdgeSetArray:=objEdgeArray, _
                                 RadiusArray:=dblRadiusArray)
    If (objRound.Status <> igFeatureOK) Then
        MsgBox "Add method fails to make a simple round"
    End If
    'Get the Number of rounds present on the Model
    lngCount = objRounds.Count
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objModel = Nothing
    Set objEdges = Nothing
    Set objEdgeArray(1) = Nothing
    Set objRounds = Nothing
    Set objRound = Nothing
End Sub