Dim myFont As Font
 
Private Sub UserControl_InitProperties()
Set Font = Parent.Font
End Sub
 
Public Property Get Font() As Font
Set Font = myFont
End Property
 
Public Property Set Font(ByVal vNewValue As Font)
Set myFont = vNewValue
'Anstatt myFont kannst du auch ein Label nehmen,...
PropertyChanged "Font"
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set Font = PropBag.ReadProperty("Font", Parent.Font)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Font", Font, Parent.Font
End Sub