Private Type ProjektData
 Wert1 as Boolean
End Typ
 
Private DTA as ProjektData

Private Sub UserControl_InitProperties()
 DTA.Wert1 = True
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    DTA.Wert1 = PropBag.ReadProperty("Wert1", True)
End Sub

Private Property GET Wert1() as Boolean
 Wert1 = DTA.Wert1
End Property

Private Property LET Wert1(byVal bValue as Boolean)
 DTA.Wert1 = bValue
 PropertyChanged "Wert1"
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 Call PropBag.WriteProperty("Wert1", DTA.Wert1)
End Sub