OCX - Programcının Özelliklerde Yaptığı Değişiklikleri Saklamak

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Metin = PropBag.ReadProperty("metin")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "metin", Metin
End Sub