Public Property Value As Object

public object Value {get; set;}

b obj = new b();
a obja = new a();
obj.publicField = obja;
obja.PropertyA = "test";

PropertyValue pt;
//Any of the following formats can be used
pt = PropertyValue.TraverseProperties(obj, "publicField.PropertyA.Length");
Assert.AreEqual("Length", pt.Name);
Assert.AreEqual(typeof(int), pt.Type);
pt = PropertyValue.TraverseProperties(obj, "publicField", "PropertyA", "Length");
Assert.AreEqual("Length", pt.Name);
Assert.AreEqual(typeof(int), pt.Type);
pt = PropertyValue.TraverseProperties(obj, "publicField.PropertyA", "Length");
Assert.AreEqual("Length", pt.Name);
Assert.AreEqual(typeof(int), pt.Type);
pt = PropertyValue.TraverseProperties(obj, "publicField/PropertyA\\Length");
Assert.AreEqual("Length", pt.Name);
Assert.AreEqual(typeof(int), pt.Type);
pt = PropertyValue.TraverseProperties(obj, "publicField\\PropertyA", "Length");
Assert.AreEqual("Length", pt.Name);
Assert.AreEqual(typeof(int), pt.Type);
            
pt = PropertyValue.TraverseProperties(obj, "publicField/PropertyA");
Assert.AreEqual("PropertyA", pt.Name);
Assert.AreEqual(typeof(string), pt.Type);

Assert.AreEqual("test", pt.Value);
pt.Value = "b";
Assert.AreEqual("b", pt.Value);

Dim obj As New b()
Dim obja As New a()
obj.publicField = obja
obja.PropertyA = "test"

Dim pt As PropertyValue
'Any of the following formats can be used
pt = PropertyValue.TraverseProperties(obj, "publicField.PropertyA.Length")
Assert.AreEqual("Length", pt.Name)
Assert.AreEqual(GetType(Integer), pt.Type)
pt = PropertyValue.TraverseProperties(obj, "publicField", "PropertyA", "Length")
Assert.AreEqual("Length", pt.Name)
Assert.AreEqual(GetType(Integer), pt.Type)
pt = PropertyValue.TraverseProperties(obj, "publicField.PropertyA", "Length")
Assert.AreEqual("Length", pt.Name)
Assert.AreEqual(GetType(Integer), pt.Type)
pt = PropertyValue.TraverseProperties(obj, "publicField/PropertyA\Length")
Assert.AreEqual("Length", pt.Name)
Assert.AreEqual(GetType(Integer), pt.Type)
pt = PropertyValue.TraverseProperties(obj, "publicField\PropertyA", "Length")
Assert.AreEqual("Length", pt.Name)
Assert.AreEqual(GetType(Integer), pt.Type)

pt = PropertyValue.TraverseProperties(obj, "publicField/PropertyA")
Assert.AreEqual("PropertyA", pt.Name)
Assert.AreEqual(GetType(String), pt.Type)

Assert.AreEqual("test", pt.Value)
pt.Value = "b"
Assert.AreEqual("b", pt.Value)