怎样让文本框实现这种效果，垂直滚动条动态跟踪！

[whoiszm]

Option Explicit
Private Sub Command1_Click()
Text1.Text = Text1.Text & "asdgfasdgadsfg" & vbCrLf
End Sub
Private Sub Form_Load()
Text1.Text = "asdgfasdgadsfg" & vbCrLf '文本框已经设置多行显示，并且显示ScrollBars 为2 VbVertical。
End Sub

在手动输入很多字符和回车后，垂直滚动条一直滚动到最下面。可是我用
Text1.Text = Text1.Text & "asdgfasdgadsfg" & vbCrLf
的话，垂直滚动条一直处于顶端，怎样让它动态跟踪到最末为！
先谢谢各位咯！！

[射天狼]

text1.selstart = len(text1.text)