Private Sub Command1_Click()
On Error Resume Next
Dim objApplication As SolidEdgeFramework.Application
Dim objSolidEdgeTCE As SolidEdgeFramework.SolidEdgeTCE
Set objApplication = GetObject(, "SolidEdge.Application")
Set objSolidEdgeTCE = objApplication.SolidEdgeTCE
Dim FileItemID As String
Dim FileItemRevID As String
Dim bOnlydownload As Boolean
FileItemID = "009431"
FileItemRevID = "A"
bOnlydownload = True
Call objSolidEdgeTCE.CheckOutDocumentsFromTeamCenterServer(FileItemID, FileItemRevID, bOnlydownload)
'Reset the object definition
Set objSolidEdgeTCE = Nothing
Set objApplication = Nothing
End Sub