Public Sub PopulateCycle()
 
'Set the target release cycle of the descendents to that of the requirement

    Dim rFactory As ReqFactory
    Dim requirement As Req
    Dim requirementId As Long

    Set rFactory = tdc.ReqFactory
    requirementId = 1
    Set requirement = rFactory.Item(requirementId)
    
    'Apply the requirements target cycle to all descendents.
    ' The changes are posted by the function.
    requirement.PopulateTargetCycleToChildren
    
End Sub