例: ハイパーリンク タイプを取得し、そのタイプのハイパーリンクを作成する

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

' VOB に既存のハイパーリンク タイプを取得します。
Dim HyperlinkType as CCHyperlinkType
Set HyperlinkType = VOB.HyperlinkType("Testhlinks")

' バージョンにハイパーリンクを作成します。
Dim Ver as CCVersion
Set Ver = CC.Version("¥caroltest¥testelem.c@@¥main¥2")
HyperlinkType.Apply Ver, "Version->Nothing", Nothing