TextBox控件滚动条自动下拉

转自：http://hjmailbox.blog.163.com/blog/static/93220272201032603357117/

在VB.net开发环境下,有一个窗体,里面有两个TextBox控件,分别名为"TxtChatHistory"与"TxtSendContent ",现在TxtSendContent里面输入完内容,按"发送"按钮,文本将会自动追加到名为"TxtChatHistory"的文本框中 ,但是,其滚动条不会自动下拉到我最后追加的文本框位置 ,尝试过使用先TxtChatHistory.Setfocus,然后发送CTRL +END的按键消息都不行!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox1.Text += Now.ToString() + vbCrLf
TextBox1.SelectionStart = TextBox1.Text.Length - 1
TextBox1.ScrollToCaret()
End Sub