主题：文字的字体及颜色问题？

改代码

Dim rt As new Windows.Forms.RichTextBox  '定义 一个RichTextBox
rt.Dock = Windows.Forms.DockStyle.Fill  '控件停靠方式为撑满父控件
rt.name = "RichTextBox1"  '设置控件名称
'rt.DataBindings.Add("text", Tables("表A").Grid.DataSource, "备注")   'RichTextBox绑定第一列,希望同步所有单元格
e.Form.Controls("Panel1").BaseControl.Controls.Add(rt)   '控件放入Panel1中作为子控件
Dim rtfText = Tables("表a").current("备注")
If (rtfText.StartsWith("{\rtf")) Then
    rt.rtf = rtfText
Else
    rt.text = rtfText
End If
rt.tag  = Tables("表a").current