' 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