Example: Displaying information about all branches sprouting from a version (Visual Basic)

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

' Loop over the branches sprouting from a version and display their
' paths using the default property of ICCBranch, and other information
Dim Ver As CCVersion
Set Ver = CC.Version("\caroltest\testelem.c@@\main\9")
Dim strPath as String
strPath = Ver.Path
Dim Branch As CCBranch
For Each Branch in Ver.SubBranches
     MsgBox Branch & " branch sprouting from " & strPath & " has " & _
     Branch.Versions.Count & " version(s); latest version is " _
     & Branch.LatestVersion.VersionNumber
Next

Feedback