Example: Using the empty collection properties to create your own collections

' Connect to the top-level ClearCase object
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") 

' Get the collection of attributes in a particular VOB
Set AtTypes = VOB.AttributeTypes

' Set up empty collections
Set StringAtTypes = CC.AttributeTypesEmpty
Set IntegerAtTypes = CC.AttributeTypesEmpty
Dim AtType As CCAttributeType
For Each AtType in AtTypes
     ' Add integer-valued and string-valued attribute types to their own
     ' collections; skip the rest
     Select Case AtType.ValueType
     Case vbLong
          IntegerAtTypes.Add AtType
     Case vbString
          StringAtTypes.Add AtType
     End Select
Next

Feedback