Public Property Get Font() As Font
    Set Font = Label1.Font
End Property
 
Public Property Set Font(ByVal New_Font As Font)
    Set Label1.Font = New_Font
    PropertyChanged "Font"
End Property

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Font", Label1.Font, Ambient.Font)
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
' Label1 befindet sich auf dem Usercontrol
    Set Label1.Font = PropBag.ReadProperty("Font", Ambient.Font)
End Sub