Public Function CheckoutEntity(Entity As Object, comment$, _
  ByRef CanContinue As Boolean) As IVersionControl						

' Check an object out for editing

' This example demonstrates the behavior when getting 
' an IVersionControl reference in a project without 
' version control enabled. For production code, you
' may wish to check once if version control is enabled
' and not attempt checkouts if it is not.
' See the example,"Check if version control is enabled"

'--------------------------------------------------------
    ' If the project has version control enabled, this routine
    ' checks out the entity and returns the version
    ' control object.
    ' The CanContinue argument is set to true if the Entity
    ' is successfully checked out or if the project does not
    ' have version control enabled.
    ' If the project has version control enabled and the checkout
    ' throws an exception, CanContinue is set to false.
    '--------------------------------------------------------
     
On Error GoTo checkout_err
 
CanContinue = True
    
Dim oVerControl As IVersionControl
Dim oVE As IVersionedEntity
    
Set oVE = Entity
Set oVerControl = oVE.VC
    
' If the connected project does not have version control
    ' enabled, oVE.Vc returns null.
    If oVerControl Is Nothing Then
Set CheckoutEntity = Nothing
Exit Function
End If
    
' Return the IVersionControl reference for use
    ' when checking in.
    Set CheckoutEntity = oVerControl
' Checkout the entity
    oVerControl.CheckOut comment
    
Exit Function
checkout_err:
CanContinue = False
End Function