フォントプロパティーがどうにもわかんねぇYO!｡･ﾟ･(ﾉД`)･ﾟ･｡

Private m_Font as Font

Public Property Get Font() As Font 'Font
　 Set Font = m_Font
　 UserControl_Resize 'コントロールを描画
End Property

Public Property Set Font(ByVal fFont As Font)
　 Set m_Font = nFont
　 PropertyChanged "Font"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
　 Set Font = .ReadProperty("Font", Ambient.Font)
End Sub

Private Sub UserControl_Resize
　 〜描画〜
End Sub

ってな風にしてるんだけど、実行中にFontプロパティーを設定しても反映されない
いや、されているんだけど、UserControl_Resizeが実行されてなくて描画されない
どこがいけないのかなぁ。