Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        RichTextBox1.SelectionColor = Color.Red

        RichTextBox1.SelectionFont = New Font("Ariel", 20, FontStyle.Bold or FontStyle.Italic or FontStyle.Strikeout or  FontStyle.Underline )

    End Sub

            richTextBox1.SelectionStart = 0;
            richTextBox1.SelectionLength = 3;

            Font oldFont = this.richTextBox1.SelectionFont;
            Font newFont = new Font(oldFont, oldFont.Style | FontStyle.Bold | FontStyle.Italic | FontStyle.Underline | FontStyle.Strikeout);
            richTextBox1.SelectionFont = newFont;
            richTextBox1.SelectionColor = Color.Red;

引用 1 楼 ZengHD 的回复:

VB.NET code    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.SelectionColor = Color.Red
        RichTextBox1.SelectionFont = New Font("Ariel", 20, FontStyle.Bold or FontStyle.Italic or FontStyle.Strikeout or  FontStyle.Underline )
    End Sub

就是这样的

 是分开实现，不是在一起实现！
 是点击一个按钮，实现一个特征！
 比如点击button1，实现选中字的粗体
  比如点击button2，实现选中字的斜体
 

虽然不是我的要求，算了，GF！