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 listoffiles As Variant
    
    FileItemID = "022456"
    FileItemRevID = "A"
    FileDataSetName = "022456.par"
    
    Call objSolidEdgeInsightXT.GetMappedPropertiesForGivenFile(FileItemID, _
        FileItemRevID, _
        FileDataSetName, _
        listoffiles)
    Set objSolidEdgeInsightXT = Nothing
    Set objApplication = Nothing
End Sub