例: 属性タイプを作成、適用、および削除する

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

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

Dim Attype As CCAttributeType

' "Quality" 属性を作成し、デフォルト値を
' 5、範囲を 1-10 に設定します。
Set Attype = VOB.CreateAttributeType("Quality", vbLong, _
     "Tested Quality of Version")
Attype.SetDefaultValue 5
Attype.SetLowerValue 0
Attype.SetUpperValue 10, True, "Set upper value"
Dim Ver As CCVersion

' ファイル バージョンにデフォルト値を適用します。
Set Ver = CC.Version("y:¥steve_test¥foo.c")
Attype.Apply Ver, , "Use default value"

' ディレクトリ バージョンに明示的な値を適用します。
Set Ver = CC.Version("y:¥steve_test¥.")
Attype.Apply Ver, 3, "Use explicit version"

' 属性タイプとそのすべてのインスタンスを削除します。
Attype.RemoveType True, "Remove type and all instances"