!关于Text控件和RichTextBox控件的下滑条问题的解决！

昨日，小弟碰到一疑难问题，即当向一个多行显示、有下滑条的Text控件中写入东西时，下滑条不能跟着往下走。
然小弟知此处高手众多，必有答案。
果不出所料，找到一贴。奈何，大虾修为实在太高，竟给出一API写的函数，小弟研究良久，终不能解。只得放弃。奈何！奈何！
然今日小弟忽得启示，此问题得以解决。因决此法实过简单，恐各大虾不肯发表。又思及若是同小弟之新手，因此而不得帮助，岂不郁闷之级。
故不敢独享，发表于此。
解决方法如下：
在Text或者RichTextBox控件的Change事件中加入一语句如下：
Text1.SelStart=Len(Text1.Text)+Text1.SelStart
如此则当写入数据超过文本行数时，下拉条自动跟着往下。
RichTextBox亦如此。