下面是一个类中的代码:
为什么在关闭程序时
没有触发Class_WriteProperties事件
(已将类的Instancing属性已设为 5 - MultiUse  
         persistable属性设为 1 )

Option Explicit
    Dim strT As String
    Private myT As Variant

Public Property Get myTest() As String
    myTest = strT
    PropertyChanged "myTest"
End Property

Public Property Let myTest(newTest As String)
    strT = newTest
    PropertyChanged "myTest"
End Property


Private Sub Class_ReadProperties(PropBag As PropertyBag)
    myTest = PropBag.ReadProperty("myTest", myT)
End Sub


Private Sub Class_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "myTest", myTest, myT
End Sub

哪位解决了与这个贴子一起给分http://topic.csdn.net/u/20080409/15/6b7a5a24-2e84-4749-90be-bc73dbdf5d2d.html