VB6中的TEXT1.TEXT内容过长时赋值不全，如何处理？

bruly

如题目，在窗体中有一个控件text1,运行程序后，在text1中手动输入较多的内容，长度超过1万个字符。
这时我执行如下 过程：
  sub a
      dim t$
      t=text1.text
     text1.text=t
end sub

      结果，text1.text 的内容，比原来要少了很多。请问这是为什么，该怎么解决呢？

附件举例，可作text1中的内容

yiziwuya

Textbox 控件的 Text 设置值最多可以有 2048 个字符，但是如果 MultiLine 属性设置为 True，此时最大限制大约是 32K。

o70078

总长度有限 也许可以考虑自己渲染个textbox