VBA - is it possible to have a series of trigger events that start after previous

[John Wilson]

    'This is the code for the third animation which is for the rectangle Definition1 to change colour
    stringName = "Definition1"
    Set MyShape2 = MyDocument.Shapes(stringName)
    
    Set oeff = ActivePresentation.Slides(1).TimeLine. _
      InteractiveSequences.Add().AddEffect(Shape:=MyShape2, _
      effectId:=msoAnimEffectChangeFillColor, trigger:=msoAnimTriggerOnShapeClick)
      oeff.Timing.TriggerType = msoAnimTriggerWithPrevious
    'TRY THIS