' Connect to the top-level ClearCase object Dim CC As New ClearCase.Application ' Get a trigger type from the VOB Dim VOB As CCVOB Set VOB = CC.VOB("\caroltest") Dim TriggerType As CCTriggerType Set TriggerType = VOB.TriggerType("my_trigger") ' Apply the trigger type to a directory element, specifying that the ' directory subset list should exclude the inheritance list Dim Elem As CCElement Set Elem = CC.Element("\caroltest") TriggerType.Apply Elem, "Applying trigger from CAL example", False, _ False, ccSubset_NotInheritance ' Get information about a trigger on an element 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