
SetProperty – Setting a property via reflection
‘ Set a property via reflection and return True if successful’ Example: SetProperty(Button1, “Text”, “Click me”)Function SetProperty(ByVal obj As Object, ByVal propertyName As String, _ ByVal val As Object) As Boolean Try ‘ get a reference to the PropertyInfo, exit if no property with that ‘ name Dim pi As