>Public Class Tests
>   Public Sub PassControlRef(ByVal controlRef As Object)
>      Dim TextProp As System.Reflection.PropertyInfo
>      TextProp = controlRef.GetType.GetProperty("Text")
>      If Not TextProp Is Nothing Then
>         TextProp.SetValue( _
>         controlRef, _
>         "Message: Passing this control as an object reference worked.", _
>         Nothing)
>      End If
>   End Sub
>End Class
>