過去ログ見たり、MSDN見たりしたけどダメだったので質問。

Dim frmD As frmDocument
Dim font
Set frmD = New frmDocument
font = frmD.rtfText.font
lblFontName = font
でオプションダイアログだしたらなんか新しい子フォームが出た。
どうしてでしょうか？
教えて君で非常にｽﾏｿ