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 varInputList(1) As Variant
    varInputList(0) = "F:\016954.asm"
    varInputList(1) = "F:\016973.asm"
    Call objSolidEdgeInsightXT.OnUndoCheckOutDocuments(varInputList)
    Set objSolidEdgeInsightXT = Nothing
    Set objApplication = Nothing
End Sub