附加文本到TextBox或者RichTextBox控件的通常方法是在当前内容上连接上新的字符串：

　　Text1.Text = Text1.Text & newString

　　但还有一个更快的方法，并且会减少连接操作的闪烁感，代码如下：

　　Text1.SelStart = Len(Text1.Text)

　　Text1.SelText = newString