' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application
Dim VOB As CCVOB
Set VOB = CC.VOB("\steve_test")
Dim Attype As CCAttributeType
' Create a "Quality" attribute, with a default value
' of 5 and range of 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
' Apply the default value to file version
Set Ver = CC.Version("y:\steve_test\foo.c")
Attype.Apply Ver, , "Use default value"
' Apply explicit value to directory version
Set Ver = CC.Version("y:\steve_test\.")
Attype.Apply Ver, 3, "Use explicit version"
' Remove attribute type with all instances of it
Attype.RemoveType True, "Remove type and all instances"