例: アクティビティ変更セットを表示する

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

' ClearCase.Application オブジェクトからアクティビティを取得します。
' その際、VOB タグ名を含むアクティビティ セレクタを指定し、
' エラーのチェックを行います。
On Error Resume Next
Set Act = CC.Activity("ct38387@¥projects")
If Err.Number <> 0 Then
     MsgBox "CC.Activity returned error: " & Err.Description
Else
     MsgBox "Got activity named " & Act & " with headline " & Act.Headline

     ' アクティビティの変更セットである CCVersions コレクションを取得します。
     Dim strVers As String
     Dim ChangeSet as CCVersions

     ' 名前の解決には変更セットの「NameResolver ビュー」を使用します。
     ' また、使用不可能なバージョンによって CCVersions オブジェクトの
     ' 初期化が失敗することがないように、指定を行います。
     Set ChangeSet = Act.ChangeSet(Act.NameResolverView, False)
     strVers = "Change set has " & ChangeSet.Count & " version(s): "

     ' CCVersions コレクション全体をループして、出力用のバージョンの
     ' 名前を収集します。
     Dim Ver As CCVersion
     For Each Ver In ChangeSet
          strVers = strVers & vbCrLf & Ver.ExtendedPath
     Next

     ' 結果を出力します。
     MsgBox strVers

     ' 変更セットの初期化時に発生したエラーを
     ' すべて出力します。
     MsgBox ChangeSet.InitErrors
End If