Private Sub Form_Click()
Dim oPersist1 As clsPersist
Dim oPersist2 As clsPersist
Dim oPersist3 As clsPersist
'先生成一个对象
Set oPersist1 = New clsPersist
oPersist1.Color = "black"
'我们要一个属性包来容纳对象
Dim oProp As New PropertyBag
'将老对象写到属性包中
oProp.WriteProperty TEST, oPersist1
'从属性包中提前老对象,并且生成一个新的对象
Set oPersist2 = oProp.ReadProperty(TEST)
'测试一下
Debug.Print oPersist2.Color
'属性包的内容可以赋值给一个byte数组
Dim btArray() As Byte
'象下面这句,存到byte数组中后,你可以存成文件,
'放在注册表中,或者发送到另一台计算机:)
btArray = oProp.Contents
'下面演示如果从byte数组中生成一个对象
Dim oProp2 As New PropertyBag
oProp2.Contents = btArray
Set oPersist3 = oProp2.ReadProperty(TEST)