Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()

        Dim objApplication As SolidEdgeFramework.Application
        Dim objAssemblyDocument As SolidEdgeAssembly.AssemblyDocument
        Dim objOccurrences As SolidEdgeAssembly.Occurrences
        Dim objOccurrence As SolidEdgeAssembly.Occurrence
        Dim objRelations3d As SolidEdgeAssembly.Relations3d
        Dim objRigidSetRelation3d As SolidEdgeAssembly.RigidSetRelation3d
        Dim objRelation As Object
        Dim arrayOccurrences As Array
        Dim bMember as Boolean

        Try
            OleMessageFilter.Register()

            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objAssemblyDocument = objApplication.ActiveDocument

            objOccurrences = objAssemblyDocument.Occurrences
            objRelations3d = objAssemblyDocument.Relations3d

            objOccurrence = objOccurrences.Item(1)

            For i = 1 To objRelations3d.Count
                objRelation = objRelations3d.Item(i)

                If objRelation.Type = SolidEdgeFramework.ObjectType.igRigidSetRelation3d Then
                    objRigidSetRelation3d = objRelation
                    bMember = objRigidSetRelation3d.IsMember(objOccurrence)
                End If
            Next

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module