with RichTextBox1
..SelectionStart = 2
.SelectionLength = 4
.SelectionColor = Color.Blue
.SelectionFont = New Font("幼圆", 12).AppendText("你")
end with
with RichTextBox1
..SelectionStart = 2
.SelectionLength = 4
.SelectionColor = Color.Blue
.SelectionFont = New Font("幼圆", 12).AppendText("你")
end with