Public Function CheckinTest(VersionCntl As Object, _
                comment$) As Boolean
' Check in a Test

    '*******************************************************
    ' The procedure for checking in a Test may change in some future version.
    ' This code should work in the future, however we advise
    ' you to revisit this example after the next version
    ' is released.
    '*******************************************************
    
    On Error GoTo CheckInErr
    If TypeOf VersionCntl Is IVCS Then
            VersionCntl.CheckIn "", comment
    ElseIf TypeOf VersionCntl Is IVersionControl Then
            VersionCntl.CheckIn comment
    End If
              
CheckinTest = True
Exit Function
CheckInErr:
CheckinTest = False
End Function