RichTextBox1.SelStart = 3 '第三个字符开始RichTextBox1.SelLength = 1 '长度为1RichTextBox1.SelColor = vbGreen '变为绿色