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 FileItemRevID As String
Dim FileItemItemID As String
'Initialise the variables
FileItemItemID = ""
FileItemRevID = ""
FileItemType = ""
Call objSolidEdgeInsightXT.AssignItemID(FileItemType, FileItemItemID, FileItemRevID)
MsgBox (FileItemItemID)
MsgBox (FileItemRevID)
Set objSolidEdgeInsightXT = Nothing
Set objApplication = Nothing
End Sub