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 PDMCAcheFilePath As String
Dim Strolditemid As String
Dim stroldrev As String
Dim bIsBomCorrect As Boolean
Dim CompResult As String
Dim nNoOfServerComponents As Integer
Dim vRevisionRule As String
Dim bvalidateBOMOnly As Boolean
bIsBomCorrect = True
CompResult = ""
nNoOfServerComponents = 0
bvalidateBOMOnly = False
PDMCAcheFilePath = "C:\Documents and Settings\[user]\Application Data\Unigraphics Solutions\Solid Edge\SEEC\[server]\Default\test.asm"
Strolditemid = ""
stroldrev = ""
Call objSolidEdgeInsightXT.ValidateTcObjectModel(PDMCAcheFilePath, _
Strolditemid, _
stroldrev, _
bIsBomCorrect, _
CompResult, _
vRevisionRule, _
bvalidateBOMOnly, _
nNoOfServerComponents)
Set objSolidEdgeInsightXT = Nothing
Set objApplication = Nothing
End Sub