' 最上位の 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