為了將數(shù)據(jù)保存到PropertyBag對象，可以先建立一個對象新的實(shí)例。使用WriteProperty方法來保存數(shù)據(jù)，這一方法包含有三個參數(shù)：識別屬性的字符串，屬性的數(shù)值，一個缺省數(shù)值。如果屬性的數(shù)值與缺省數(shù)值相同時，屬性的數(shù)值將不會被保存。其范例如下：
Dim objPB As PropertyBag
Dim strValueToPersist As String
strValueToPersist = "TestingPersist"
Set objPB = New PropertyBag
Call objPB.WriteProperty("PersistValue", strValueToPersist, _
vbNullstring)
為了能夠?qū)崿F(xiàn)從PropertyBag讀取數(shù)據(jù)，可以使用ReadProperty方法。這一方法的參數(shù)包含有一個屬性名稱和一個缺省的數(shù)值，返回值是屬性的數(shù)值：
strValueToPersist = objPB.ReadProperty("PersistValue", vbNullString)
為了保存PropertyBag對象的內(nèi)容，可以將內(nèi)容屬性保存到一個二進(jìn)制字節(jié)的數(shù)組或一個變量。
Dim vntContents As Variant
vntContents = objPB.Contents
注釋：Save to desired location
為了能夠從PropertyBag對象中重新獲取信息，將保存數(shù)值讀入一個二進(jìn)制的數(shù)組。然后將內(nèi)容屬性設(shè)置為二進(jìn)制數(shù)組，這樣所有的屬性數(shù)值將可以重新獲得。
Dim b() As Byte
Dim vntContents As Variant
注釋：Read saved contents into vntContents from saved location
Set objPB = New PropertyBag
b = vntContents
objPB.Contents = b
