急：怎么设置可以使滚动条自动移动显示TEXTBOX中的最新消息？？

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'定义 New_Text 字符串来记录新接收的信息
Dim New_Text As String
'接收信息并赋值给 New_Text
Winsock1.GetData New_Text
'在TEXT1显示框中显示新接收到的信息
Text1.SelText = New_Text
Frame1.Caption = Winsock1.RemoteHostIP
'在状态栏中显示接收信息
StatusBar1.Panels(2).Text = "  接收到 " & bytesTotal & " byte的消息  "
End Sub帮看一下是这里出了问题，还是属性中应该设置成什么？