Свойство Persistable в ActiveX

Private varCheck As Byte
 
Public Property Let IsRegistration(Rgs As Byte)
    varCheck = Rgs
    Class.PropertyChanged 'IsRegistration'
End Property
Public Property Get IsRegistration() As Byte
    IsRegistration = varCheck
End Property
 
Private Sub Class_ReadProperties(PropBag As PropertyBag)
    varCheck = PropBag.ReadProperty('IsRegistration', 2)
End Sub
Private Sub Class_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty 'IsRegistration', varCheck, 2
End Sub

Private clsCh As New MyDLL.clsMain
 
Private Sub Check1_Click()
    clsCh.IsRegistration = Check1.Value
End Sub
 
Private Sub Form_Load()
    Check1.Value = clsCh.IsRegistration
End Sub

Private pb As PropertyBag      ' Declare a PropertyBag object.
Private LoanObject As Loan      ' Declare a Loan object.
 
Private Sub Form_Unload(Cancel As Integer)
   Dim varTemp as Variant
 
   ' Instantiate the PropertyBag object.
   Set pb = New PropertyBag
   ' Save the object to the PropertyBag using WriteProperty.
   pb.WriteProperty 'MyLoanObject', LoanObject
   ' Assign the Contents of the PropertyBag to a Variant.
   varTemp = pb.Contents
   ' Save to a text file.
   Open 'C:Loandata.txt' For Binary As #1
   Put #1, , varTemp
   Close #1
End Sub