Wert in ein property schreiben

1
2
3
4
5
6

        Public Shared Sub SetPropertyValue(ByVal obj As Object, ByVal sProperty As String, ByVal oValue As Object)
            Dim oParam() As Object = New Object
            oParam(0) = oValue
            obj.GetType().InvokeMember(sProperty, BindingFlags.SetProperty, Nothing, obj, oParam)
        End Sub