例: トリガの作業

' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application

' VOB からトリガ タイプを取得します。
Dim VOB As CCVOB
Set VOB = CC.VOB("¥caroltest")

Dim TriggerType As CCTriggerType
Set TriggerType = VOB.TriggerType("my_trigger")

' ディレクトリ エレメントにトリガ タイプを適用し、ディレクトリ サブセット リストから
' 継承リストが除外されるように指定します。
Dim Elem As CCElement
Set Elem = CC.Element("¥caroltest")
TriggerType.Apply Elem, "Applying trigger from CAL example", False, _
     False, ccSubset_NotInheritance

' エレメント上のトリガについての情報を取得します。
Dim Trigger As CCTrigger
Dim strAttached As String
Dim strInheritance As String
Set Trigger = Elem.Trigger("another_trigger")
If Trigger.IsOnAttachedList Then
     strAttached = " is on attached list."
End If
If Trigger.IsOnInheritanceList Then
     strInheritance = " is on inheritance list."
End If
MsgBox "Trigger of type " & Trigger.Type & strAttached &  strInheritance