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 psaCacheFiles(1) As Variant
varInputList(0) = "F:\020042.par"
varInputList(1) = "F:\020043.asm"
Call objSolidEdgeInsightXT.DeleteFilesFromCache(psaCacheFiles)
Set objSolidEdgeInsightXT = Nothing
Set objApplication = Nothing
End Sub