例: 空のコレクション プロパティを使用して独自のコレクションを作成する

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

Set VOB = CC.VOB("¥code")

' 特定の VOB の属性のコレクションを取得します。
Set AtTypes = VOB.AttributeTypes

' 空のコレクションをセットアップします。
Set StringAtTypes = CC.AttributeTypesEmpty
Set IntegerAtTypes = CC.AttributeTypesEmpty
Dim AtType As CCAttributeType
For Each AtType in AtTypes
     ' 独自のコレクションに整数値と文字列値の属性タイプを追加し、
     ' 残りはスキップします。
     Select Case AtType.ValueType
     Case vbLong
          IntegerAtTypes.Add AtType
     Case vbString
          StringAtTypes.Add AtType
     End Select
Next