為了將數據保存到PropertyBag對象，可以先建立一個對象新的實例。使用WriteProperty方法來保存數據，這一方法包含有三個參數：識別屬性的字符串，屬性的數值，一個缺省數值。如果屬性的數值與缺省數值相同時，屬性的數值將不會被保存。其范例如下：
DimobjPBAsPropertyBag
DimstrValueToPersistAsString
strValueToPersist="TestingPersist"
SetobjPB=NewPropertyBag
CallobjPB.WriteProperty("PersistValue",strValueToPersist,_
vbNullstring)
為了能夠實現從PropertyBag讀取數據，可以使用ReadProperty方法。這一方法的參數包含有一個屬性名稱和一個缺省的數值，返回值是屬性的數值：
strValueToPersist=objPB.ReadProperty("PersistValue",vbNullString)
為了保存PropertyBag對象的內容，可以將內容屬性保存到一個二進制字節的數組或一個變量。
DimvntContentsAsVariant
vntContents=objPB.Contents
注釋：Savetodesiredlocation
為了能夠從PropertyBag對象中重新獲取信息，將保存數值讀入一個二進制的數組。然後將內容屬性設置為二進制數組，這樣所有的屬性數值將可以重新獲得。
Dimb()AsByte
DimvntContentsAsVariant
注釋：ReadsavedcontentsintovntContentsfromsavedlocation
SetobjPB=NewPropertyBag
b=vntContents
objPB.Contents=b->
