Example: Displaying information about all the hyperlinks attached to a VOB object

' Return a string representation of what's at an end of a hyperlink
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

' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application

' Find all the hyperlinks attached to a version
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

' Gather information to display about each hyperlink
For Each Hyperlink in Ver.Hyperlinks
     strHyperlinks = strHyperlinks & Hyperlink.Type & ": " & _
          HyperlinkEnd(Hyperlink.FromObject) & " (" & Hyperlink.FromText & _
          ") -> " & HyperlinkEnd(Hyperlink.ToObject) & " (" & Hyperlink.ToText & ")"
Next

' Display the hyperlink information
MsgBox strHyperlinks

Feedback