' Connect to the top-level ClearCase object and get a VOB Dim CC As New ClearCase.Application Dim VOB as CCVOB Set VOB = CC.VOB("\caroltest") ' Get an existing hyperlink type in the VOB Dim HyperlinkType as CCHyperlinkType Set HyperlinkType = VOB.HyperlinkType("Testhlinks") ' Create a hyperlink on a version Dim Ver as CCVersion Set Ver = CC.Version("\caroltest\testelem.c@@\main\2") HyperlinkType.Apply Ver, "Version->Nothing", Nothing