You can use the CommonDialog control to select font attributes. When the form is exited, set properties:

with thisform

.RTFBox.SelFontName = .CommonDialog1.FontName
.RTFBox.SelFontSize = .CommonDialog1.FontSize
.RTFBox.SelItalic = .CommonDialog1.FontItalic
.RTFBox.SelBold = .CommonDialog1.FontBold
.RTFBox.SelStrikeThru = .CommonDialog1.FontStrikeThru
.RTFBox.SelUnderline = .CommonDialog1.FontUnderline

endwith

Charlie