Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objApp As RevisionManager.Application = Nothing
Dim objRevMgrDocument As RevisionManager.Document = Nothing
Dim objLinkedDocs As RevisionManager.ILinkedDocsAuto = Nothing
Dim strCurrentLinkedDoc As Object = Nothing
Dim objLinkedDoc As RevisionManager.IDocAuto = Nothing
Dim jj As Long
Dim isACChild As Integer
Try
objApp = CreateObject("RevisionManager.Application")
objApp.Visible = True
objApp.DisplayAlerts = False
objRevMgrDocument = objApp.OpenFileInRevisionManager("D:\TopAssembly.asm")
objLinkedDocs = objRevMgrDocument.LinkedDocuments(RevisionManager.LinkTypeConstants.seLinkTypeAll)
For jj = 1 To objLinkedDocs.Count
strCurrentLinkedDoc = objLinkedDocs(jj).fullname
objLinkedDoc = objLinkedDocs.Item(jj)
objLinkedDoc.IsAsmCopyChild(isACChild)
Next
Catch ex As Exception
End Try
End Sub
End Class