Private Sub Command1_Click()
On Error Resume Next
Dim objApplication As SolidEdgeFramework.Application
Dim objSolidEdgeInsightXT As SolidEdgeFramework.SolidEdgeInsightXT
Set objApplication = GetObject(, "SolidEdge.Application")
Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT
Dim FileItemID As String
Dim FileItemRevID As String
Dim FileDataSetName As String
Dim FileRevisionRule As String
Dim FileVariantRule As String
FileItemID = "020147"
FileItemRevID = "A"
FileDataSetName = "020147.par"
FileRevisionRule = "latest working"
FileVariantRule = ""
Call objSolidEdgeInsightXT.GetListOfIndirectFilesForGivenFile(FileItemID, _
FileItemRevID, _
FileDataSetName, _
FileRevisionRule, _
FileVariantRule, _
listoffiles)
Set objSolidEdgeInsightXT = Nothing
Set objApplication = Nothing
End Sub