例: VOB オブジェクトに接続するすべてのハイパーリンクについての情報を表示する

' ハイパーリンクのリンク先に何があるかを示すストリングを戻します。
Private Function HyperlinkEnd(EndObject As Variant) As String
     Dim str As String

     Select Case TypeName(EndObject)
     Case "Nothing"
          HyperlinkEnd = "(No object)"
     Case "ICCAttributeType", "ICCBranchType", "ICCHyperlinkType", "ICCLabelType"
          HyperlinkEnd = " type: " & EndObject
     Case "ICCVOB"
          HyperlinkEnd = " VOB: " & EndObject
     Case "ICCHyperlink"
          HyperlinkEnd = " hyperlink:" & EndObject
     Case "ICCBranch"
          HyperlinkEnd = " branch: " & EndObject
     Case "ICCVersion", "ICCElement"
          HyperlinkEnd = " file system object: " & EndObject.Path
     Case Else
          HyperlinkEnd = "Hyperlink end has unknown type!"
     End Select
End Function

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

' バージョンに接続するハイパーリンクをすべて検出します。
Dim Ver As CCVersion
Set Ver = CC.Version("testelem.c@@¥main¥8")
Dim Hyperlink As CCHyperlink
Dim strHyperlinks As String
strHyperlinks = "Hyperlinks on version " & Ver.ExtendedPath & ":" & vbCrLf

' 各ハイパーリンクについて表示するための情報を集めます。
For Each Hyperlink in Ver.Hyperlinks
     strHyperlinks = strHyperlinks & Hyperlink.Type & ": " & _
          HyperlinkEnd(Hyperlink.FromObject) & " (" & Hyperlink.FromText & _
          ") -> " & HyperlinkEnd(Hyperlink.ToObject) & " (" & Hyperlink.ToText & ")"
Next

' ハイパーリンク情報を表示します。
MsgBox strHyperlinks