Private Sub Test()
        Dim file1 As String = "D:\Inventor\Praha\221A2 Drive Unit\CAT01_CK_221A2-M1000_ZSZ001.iam"
        Dim invApprentice As New ApprenticeServerComponent
        Dim doc As ApprenticeServerDocument
        doc = invApprentice.Open(file1)
        LinkedDocuments(doc, 0)
        invApprentice = Nothing
    End Sub
    Private Sub LinkedDocuments(ByVal doc As ApprenticeServerDocument, ByVal hl As Integer)
        Dim ld As Inventor.ReferencedFileDescriptor
        Debug.Print(Space(hl * 2) & "LiDo " & doc.FullFileName)
        For Each ld In doc.ReferencedFileDescriptors
            Debug.Print(Space(hl * 2) & "- " & ld.FullFileName)
            LinkedDocuments(ld.ReferencedDocument, hl + 1)
            Debug.Print(Space(hl * 2) & "- return")
        Next
    End Sub