' 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"