例: VOB 内のすべての属性タイプについての情報を表示する

' 最上位の ClearCase アプリケーション オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim VOB as CCVOB

' 最上位の ClearCase アプリケーション オブジェクトから VOB を取得します。
Set VOB = cc.VOB("¥projects")

' VOB から CCAttributeTypes コレクションを取得します。コレクションをループして、
' 各属性タイプについての情報を集めます。
Dim AtType as CCAttributeType
Dim Str as String
For Each AtType In VOB.AttributeTypes
     Str = Str & AtType.Name & ":" & vbCrLf & " Owner: " & AtType.Owner & _ 
     "; Group: " & AtType.Group

     Select Case AtType.Constraint
     Case ccConstraint_None
          ' No constraint; この Case には、出力行を一切追加しないでください。
     Case ccConstraint_PerElement
          Str = Str & vbCrLf & "  Constraint: one instance per element"
     Case ccConstraint_PerBranch
          Str = Str & vbCrLf & "  Constraint: one instance per branch"
     Case ccConstraint_PerVersion
          Str = Str & vbCrLf & "  Constraint: one instance per version"
     Case Else
          Str = Str & vbCrLf & "  Unknown constraint type"
     End Select

     Select Case AtType.ValueType
     Case vbLong
          Str = Str & vbCrLf & "  Value type: integer"
     Case vbDouble
          Str = Str & vbCrLf & "  Value type: real"
     Case vbDate
          Str = Str & vbCrLf & "  Value type: date-time"
     Case vbString
          Str = Str & vbCrLf & "  Value type: string"
     Case Else
          Str = Str & vbCrLf & "  Unknown value type"
     End Select

     On Error Resume Next
     Str = Str & vbCrLf & "      Default value: " & AtType.DefaultValue

     On Error Resume Next
     Str = Str & vbCrLf & "     Lower value: " & AtType.LowerValue

     On Error Resume Next
     Str = Str & vbCrLf & "     Upper value: " & AtType.UpperValue

     ' etc, etc: ここに、任意の属性タイプ プロパティを追加します。
     Str = Str & vbCrLf
Next

' 結果を出力します。
MsgBox Str