Public Sub ChangeValue(ByRef objTstR As CTestObject, _
                        ByVal objTstV As CTestObject)

   objTstR.Value = 102
   objTstV.Value = 101

End Sub