怎样让文本框在添加新的数据后自动将滚动条拉到底部？
例如这样的情况：
Private Sub Command1_Click()
    Text1 = Text1 & "123" & vbNewLine
End Sub
text1有纵向滚动条，在多次单击按钮后text1的 纵向滚动条就会变成可用，但在以后的每次单击按钮后，滚动条都会自动跳到首行，怎样能实现每次单击按钮后，滚动条都自动移到最后？

用滚动条的API函数，具体我也不记得！我以前做过，代码忘啦！去网上找找！有的

用那么麻烦吗？
我已经无意间在百度上找到了答案：
  Text1.SelStart = Len(Text1)
    Text1.SelLength = 0