怎么用VB做一个字体控制器?

最近自己做了一个个性版的记事本程序!想添加一个字体控制器来控制记事本文件的字体大小和字体类型!颜色不需要控制!麻烦把代码发过来..并有详细的说明!

先加入上面这个控件

加入一个command1，一个text1

代码如下：

Private Sub Command1_Click()
CommonDialog1.Flags = cdlCFBoth + cdlCFPrinterFonts
CommonDialog1.ShowFont '显示字体窗体

Text1.Font = CommonDialog1.FontName '字体
Text1.FontSize = CommonDialog1.FontSize '字体大小
Text1.FontBold = CommonDialog1.FontBold '字体是否粗体
Text1.FontItalic = CommonDialog1.FontItalic '字体是否斜体
End Sub

要用到RichTextBox,企业版控件就行了

如果不明白,打开VB时,运行向导就可以创建了,功能还不错