ようするに
/プログラム本体/
Private Sub Command1_Click()
　 OriginalControl.Font="Arial"
End Sub

/コントロール/
Public Property Get Font() As Font
　 Set Font = m_Font

　 Debug.Print m_Font ' Debug.Print Fontでも同じ？？
End Property

で、プロパティーに指定した値が表示されればいいんですよ。
上のだと、指定する1個前の値が表示されます。

他のサンプルを見ると上の中に
Set hogetext.Font = m_Font
ってのが入っていてそこで変更されるのでOKなようです
自分が作っているのはラベルとか使わないで自分で描画するものなので、
この方法は使えないと思うのですが。