如果你想在文本框最后加入，就：Text1.Text = Text1.Text & "==========================="如果你想在文本框当前光标处开始加入，就：Text1.SelText = "==========================="
若想插入或替换就用 Text1.SelText = "==========================="
