>>885
よくわからんが
Dim font
font = frmDocument.rtfText.font
lblFontName = font

でいいとおもうが