Private Function CreatePropertyItem() As PropertyItem
        Dim ci As System.Reflection.ConstructorInfo = GetType(PropertyItem).GetConstructor(BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.Public, Nothing, New Type() {}, Nothing)
        Return DirectCast(ci.Invoke(Nothing), PropertyItem)
    End Function