Public Sub GetBPTestParams()

' Get business process test parameters

    Dim objTestFactory As TestFactory
    Dim objTest As Test
    Dim BPTest As BusinessProcess
    Dim components As List
    Dim Component As BPComponent
    Dim params As List, tList As List
    Dim iterations As List
    Dim iteration As BPIteration

    Set objTestFactory = tdc.TestFactory
    Set tList = objTestFactory.NewList("")
    
    ' Get any Business Process test.
    Dim tst As Test
    For Each tst In tList
        Debug.Print tst.Type
        If tst.Type = "BUSINESS-PROCESS" Then
           Set objTest = tst
           Exit For
        End If
    Next tst
    If objTest Is Nothing Then Exit Sub
    
    Set BPTest = objTest
    BPTest.Load
    Set components = BPTest.BPComponents
    Set Component = components.Item(1)
    Set iterations = Component.iterations
    Set iteration = iterations.Item(1)
    Set params = iteration.IterationParams
    
    Dim param1 As BPIterationParam
    Dim param2 As BPIterationParam
    Set param1 = params.Item(1)
    Set param2 = params.Item(2)
    
    MsgBox param1.value
    MsgBox param2.value
    
 End Sub