Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgeAssembly.AssemblyDocument
    Dim objAngRel As SolidEdgeAssembly.AngularRelation3d
    Dim bToPlane As Boolean
    Dim bFromPlane As Boolean
    Dim bCCWise As Boolean
    Dim dblVector(1 To 3) As Double
    Const TESTFILE = "T:\vbtests\testcases\Sample.asm"
    ' 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.AssemblyDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    Call objDoc.Close
    ' opening an existing assembly document
    Set objDoc = objApp.Documents.Open(TESTFILE)
    ' getting the angular relation in the Relations3D collection object for the assembly document
    Set objAngRel = objDoc.Relations3d.Item(10)
    ' getting the definition of the angular relation
    Call objAngRel.GetDefinition(ToPlane1PositiveSide:=bToPlane, FromPlane2PositiveSide:=bFromPlane, _
                                 CounterClockWise:=bCCWise, VectorX:=dblVector(1), VectorY:=dblVector(2), VectorZ:=dblVector(3))

    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objAngRel = Nothing
End Sub