例: バージョンにブランチ タイプを適用する

' 最上位の Rational ClearCase オブジェクトに接続し、VOB を取得します。
Dim CC As New ClearCase.Application
Dim VOB as CCVOB
Set VOB = CC.VOB("¥caroltest")

' VOB に既存のブランチ タイプを取得します。
Dim BranchType as CCBranchType
Set BranchType = VOB.BranchType("v3.2_main")

' バージョンにブランチ タイプを適用します。
Dim Ver as CCVersion
Set Ver = CC.Version("¥caroltest¥testelem.c")
BranchType.Apply Ver