Imports RevisionManager
Imports System.Runtime.InteropServices

Module Example

    Sub Main()
        Dim objApplication As RevisionManager.Application = Nothing
        Dim objDocument As RevisionManager.Document = Nothing
        Dim objLinkedDocument As RevisionManager.Document = Nothing
        Dim objLinkedDocuments As RevisionManager.LinkedDocuments = Nothing
        Dim i As Integer

        Try
            ' Start Revision Manager.
            objApplication = New RevisionManager.Application
            objDocument = objApplication.Open("C:\Asm1.asm")
            objLinkedDocuments = objDocument.LinkedDocuments

            For i = 1 To objLinkedDocuments.Count
                objLinkedDocument = objLinkedDocuments.Item(i)
            Next
        Catch ex As Exception
            ' Write any errors to console.
            Console.WriteLine(ex.Message)
        Finally
            ' Release COM Objects.
            If Not (objLinkedDocuments Is Nothing) Then
                Marshal.ReleaseComObject(objLinkedDocuments)
                objLinkedDocuments = Nothing
            End If
            If Not (objDocument Is Nothing) Then
                Marshal.ReleaseComObject(objDocument)
                objDocument = Nothing
            End If
            If Not (objApplication Is Nothing) Then
                objApplication.Quit()
                Marshal.ReleaseComObject(objApplication)
                objApplication = Nothing
            End If
        End Try
    End Sub

End Module