VB - Wert in ein property schreiben

        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