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
'Example takes string array with one element
Dim ObjUnGetInfo(0) As Object
ObjUnGetInfo(0) = sUngetXML
Call objSolidEdgeInsightXT.UnGetSmartCodes(ObjUnGetInfo)
Set objSolidEdgeInsightXT = Nothing
Set objApplication = Nothing
End Sub