例: ファイルがソース制御下にあるかどうかを判別し、(そうである場合) チェックアウトされているかどうかを判別する

' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim Ver As CCVersion

' ファイルがソース制御下にあるかどうかを通知する方法 (ICCVersion の例)
On Error Resume Next
Set Ver = CC.Version("m:¥carol_main¥caroltest¥testelem.c")
If Err.Number <> 0 Then
     MsgBox "It's not under source control: " & Err.Description
Else
     MsgBox "It's under source control, with extended path " & Ver.ExtendedPath

     ' CCVersion オブジェクトが表すファイルがチェックアウト済みかどうかを通知させる方法
     MsgBox "Checked out? " & Ver.IsCheckedOut
End If