Check in a Test
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
CheckinTest = False
End Function