RichTextBox 控件提供了一些属性，通过这些属性，可对该控件中任何部分的文本使用不同的格式。用这些属性，可以将文本变为粗体或斜体，改变文本的颜色，创建上标或下标。可以调整段落的左右缩进值，还可以使用悬挂式缩进。怎样才能实现这些功能呢？
    请高手指点！
    谢谢！

比如一篇文章，有一部分要突出显示，就是说这一部分要和其他的部分用不同的字体，怎样实现？
    请给出示例代码。谢谢！

Private Sub zl_SelChange()
    CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
    ' 显示“字体”对话框
    CommonDialog1.ShowFont
    zl.SelBullet = True
    zl.SelFontName = CommonDialog1.FontName
    zl.SelFontSize = CommonDialog1.FontSize
    zl.SelBold = CommonDialog1.FontBold
    zl.SelItalic = CommonDialog1.FontItalic
    zl.SelUnderline = CommonDialog1.FontUnderline
    zl.SelStrikeThru = CommonDialog1.FontStrikethru
    zl.SelColor = CommonDialog1.Color
End Sub
    这里zl是一个RichTextBox控件。这段代码运行时，只要我选中文字或者将光标移到RichTextBox控件中，就会弹出字体对话框。我不想这样，希望在点击“字体”按钮后才弹出字体对话框，该怎么做？

查看了一下RichTextBox相关的帖子，有几个跟我提出的是类似的问题，都没有得到理想的解决方案。