Código de fuente VB para hacer un bloc de notas
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects ' El cuadro de diálogo cdlCFBoth enumera las fuentes de impresora y pantalla disponibles. El cuadro de diálogo cdlCFEffects permite efectos de tachado, subrayado y color.
CommonDialog1.ShowFont 'Mostrar el cuadro de diálogo "Fuente"
Text1.font.Name = CommonDialog1.FontName 'Establecer la fuente
Text1.font.Size = CommonDialog1 .FontSize 'Establece el tamaño de fuente
Text1.font.Bold = CommonDialog1.FontBold 'Establece si se mostrará en negrita
Text1.font.Italic = CommonDialog1.FontItalic 'Establece si se mostrará en cursiva
Text1.FontStrikethru = CommonDialog1.FontStrikethru 'Establece si se mostrará tachado
Text1.FontUnderline = CommonDialog1.FontUnderline 'Establece si se mostrará subrayado
Text1.ForeColor = CommonDialog1.Color 'Establece el color de la fuente
Text2.font.Name = CommonDialog1.FontName 'Establece la fuente
Text2.font.Size = CommonDialog1 .FontSize 'Establece el tamaño de fuente
Text2.font.Bold = CommonDialog1.FontBold 'Establece si se mostrará en negrita
Text2.font.Italic = CommonDialog1.FontItalic 'Establece si mostrar en cursiva
Text2. FontStrikethru = CommonDialog1.FontStrikethru 'Establecer si se mostrará tachado
Text2.FontUnderline = CommonDialog1.FontUnderline 'Establecer si se mostrará subrayado
Text2.ForeColor = CommonDialog1.Color 'Establece el color de la palabra