Saving Fonts

[Toyman]

Hi
I'am having problems saving a Font of my Usercontrol
It doesn't seem to write the Font object to the PropBag

This is the Code for the properties
Property Set Font(NewValue As StdFont)
Set lblCaption.Font = NewValue
PropertyChanged "Font"
SizeCaption
End Property
Property Get Font() As StdFont
Set Font = lblCaption.Font
End Property

And this is the Code to Read/Write the properties.
lblCaption.Font = Propbag.ReadProperties("Font",lblCaption.Font)

Propbag.Writeproperties "Font",lblCaption.Font,lblCaption.Font

Thanks
Toyman