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