Public Property Get Font() As IFontDisp
    Set Font = Label1.Font
End Property
 
Public Property Set Font(ByVal vNewValue As IFontDisp)
    Set Label1.Font = vNewValue    
    PropertyChanged "Font"
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Caption = PropBag.ReadProperty("Caption", Label1.Caption)
    Font = PropBag.ReadProperty("Font", Label1.Font)
    ForeColor = PropBag.ReadProperty("ForeColor", Label1.ForeColor)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    With PropBag
      .WriteProperty "Caption", Label1.Caption
      .WriteProperty "Font", Label1.Font
      .WriteProperty "ForeColor", Label1.ForeColor
    End With
End Sub