Imports RevisionManager
Imports System.Runtime.InteropServices
Module Example
    Sub Main()
        Dim objApplication As RevisionManager.Application = Nothing
        Dim objInsight As RevisionManager.Insight = Nothing
        Dim aPropValues As Object = Nothing
        Dim aListOfPropsToQuery(2) As Object
        Dim numberofpropertyvalues As Long
        Dim aFilesOnServer(0) As Object
        Try
            ' Start Revision Manager.
            objApplication = New RevisionManager.Application
            ' Get reference to Insight object.
            objInsight = objApplication.Insight
            aFilesOnServer(0) = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib/Dash.par"
            aListOfPropsToQuery(0) = "Description"
            aListOfPropsToQuery(1) = "Title"
            aListOfPropsToQuery(2) = "SEStatus"
            Call objInsight.GetFilePropertiesFromServer(aFilesOnServer.Length, aFilesOnServer, aListOfPropsToQuery.Length, aListOfPropsToQuery, numberofpropertyvalues, aPropValues)
        Catch ex As Exception
            ' Write any errors to console.
            Console.WriteLine(ex.Message)
        Finally
            ' Release COM Objects.
            If Not (objInsight Is Nothing) Then
                Marshal.ReleaseComObject(objInsight)
                objInsight = Nothing
            End If
            If Not (objApplication Is Nothing) Then
                objApplication.Quit()
                Marshal.ReleaseComObject(objApplication)
                objApplication = Nothing
            End If
        End Try
    End Sub
End Module