例: バージョンから発生するすべてのブランチについての情報を表示する (Visual Basic)

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

' バージョンから発生しているブランチをループし、そのパス (ICCBranch
' のデフォルト プロパティを使用) およびその他の情報を表示します。
Dim Ver As CCVersion
Set Ver = CC.Version("¥caroltest¥testelem.c@@¥main¥9")
Dim strPath as String
strPath = Ver.Path
Dim Branch As CCBranch
For Each Branch in Ver.SubBranches
     MsgBox Branch & " branch sprouting from " & strPath & " has " & _
     Branch.Versions.Count & " version(s); latest version is " _
     & Branch.LatestVersion.VersionNumber
Next