例: バージョンから祖先のバージョンにラベルを移動する

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

' バージョンから祖先のバージョンにラベルを移動します。

Dim Ver As CCVersion
Dim PredVer As CCVersion
Dim Label As CCLabel
Dim LabelType As CCLabelType

' 1 つのバージョンからラベルを取得し、ついでそのタイプを取得します。
' (注: バージョンの VOB からもラベル タイプを取得できます)
Set Ver = CC.Version("testelem.c@@¥main¥v4.0.bl5_main¥5")
Set Label = Ver.Label("TempLabelType")
Set LabelType = Label.Type

' 祖先のバージョンを取得してそれにラベルを適用します。置換に対して True を渡し、
' ラベルを移動する意図があることを示します。
Set PredVer = Ver.Predecessor
LabelType.Apply PredVer, "Reverting to predecessor version", True