Dim p           As New PropertyBag
Dim x           As Object
Dim b()         As Byte
 
p.WriteProperty "name", "value"
p.WriteProperty "obj", x
 
b = p.Contents
 
p.Contents = b
 
Debug.Print "Name: " & p.ReadProperty("name")
Debug.Print "Objekt: " & IsObject(p.ReadProperty("obj"))

http://rm_code.dl.am