Добавление шрифта в Visual Basic6 - VB

Формулировка задачи:

Уважаемые программисты, подскажите пожалуйста, как добавить шрифт в Visual Basic6? у меня проект текстовый редактор. Выводить сообщение о том, что нужно добавить шрифт через панель управления. Подскажите как? Заранее благодарю!!!!!!!!!

Решение задачи: «Добавление шрифта в Visual Basic6»

textual
                            Листинг программы 
                        

                            Private Sub mnuEditFont_Click()
CommonDialog1.ShowFont
RichTextBox1.SelFontName = CommonDialog1.FontName
RichTextBox1.SelBold = CommonDialog1.FontBold
RichTextBox1.SelItalic = CommonDialog1.FontItalic
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline
RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru
RichTextBox.SelSize = CommonDialog1.FontSize
End Sub
                        