Private Sub Form_Load()

   Dim objTestR As New CTestObject, objtestv As New CTestObject
   Dim dblTimeR As Double, dblTimeV As Double
   Dim lngCtr As Long

   dblTimeR = Timer
   For lngCtr = 0 To 100000
      ChangeObjR objTestR
   Next
   txtByRef.Text = Timer - dblTimeR

   dblTimeV = Timer
   For lngCtr = 0 To 100000
      ChangeObjV objtestv
   Next
   txtByVal.Text = Timer - dblTimeV

End Sub