Ir a Proyecto – Componentes y seleccionar los controles solicitados.
Microsoft Common Dialog
Microsoft Rich Textbox
Agregarlos en la Barra de herramientas
En el Editor de Menú escribir en Name : nmufuenteY en la codificación :
Private Sub NMUfuente_Click()
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
RichTextBox1.SelFontName = CommonDialog1.FontName
RichTextBox1.SelFontSize = CommonDialog1.FontSize
RichTextBox1.SelBold = CommonDialog1.FontBold
RichTextBox1.SelItalic = CommonDialog1.FontItalic
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline
RichTextBox1.Font.Strikethrough = CommonDialog1.FontStrikethru
RichTextBox1.SelColor = CommonDialog1.Color
Exit Sub
