Font property not fully working -

Public Property Set Font(ByVal oFont As StdFont)
    Debug.Print "1.Write Font Size: " & m_oFont.Size
    With m_oFont
        .Bold = oFont.Bold
        .Charset = oFont.Charset
        .Italic = oFont.Italic
        .Name = oFont.Name
        .Size = oFont.Size
        .Strikethrough = oFont.Strikethrough
        .Underline = oFont.Underline
        .Weight = oFont.Weight
    End With
    
    PropertyChanged "Font"
    
    Debug.Print "2.Write Font Size: " & m_oFont.Size
End Property
Public Property Get Font() As StdFont
    Set Font = m_oFont
End Property 

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "Font", m_oFont
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Debug.Print "1.Read Font Size: " & m_oFont.Size
    m_oFont = PropBag.ReadProperty("Font")
    Debug.Print "2.Read Font Size: " & m_oFont.Size
End Sub