Private Function AddTestParameter( _

   ByRef tst As Test, _
   ByVal paramName As String, _
   ByVal desc As String) As TestParameter

' Create a test parameter

   ' Add a parameter to test.
   Dim parameter As TestParameter
   Dim testParamsFactory As TestParameterFactory
   Dim supportParamTest As ISupportTestParameters
   Dim tstv As IVersionedEntity
   Dim oVCS As IVCS
   

 
   On Error GoTo AddTestParameterErr
   ' Check out the test.
   Set tstv = tst
   Set oVCS = tstv.VC
   oVCS.CheckOut -1, "Sing for your supper", False, True

    
   ' Convert the test to support ISupportTestParameters.
   Set supportParamTest = tst
   Set testParamsFactory = supportParamTest.TestParameterFactory
   Set parameter = testParamsFactory.AddItem(Null)
   Set parameter = testParamsFactory.AddItem(Null)
   parameter.name = paramName
   parameter.Description = desc
   parameter.Description = desc
   parameter.Post

   Set AddTestParameter = parameter

   ' Check in the test.   
   oVCS.CheckIn "", "You'll get breakfast"   

Exit Function
AddTestParameterErr:
Set AddTestParameter = Nothing
End Function