VB一些问题请教

VB一些问题请教

Private Sub Command2_Click()
Dim temp As String
temp = Text2.Text
Text2.Text = temp & Text1.Text
End Sub
如果要换行之类，连接符中间加个CHR(10)之类的追问Text2属性设置 滚动条 的时候呢？让TEXT2的显示一直最下面追答什么意思？没明白想干嘛。追问前面的已经弄好了 现在 还有一个不明白 Texe2的已经设置为滚动条，但是怎么让滚动条一直保持在最下面呢？
Private Sub Command1_Click()
If Text1.Text <> "" Then
If Text2.Text <> "" Then
Text2.Text = Text2.Text & vbCrLf & vbCrLf + Text1.Text
Else
Text2.Text = Text2.Text + Text1.Text
End If
End If
End Sub
Private Sub Form_Load()
Text2.Text = ""
End Sub追答做个TEXT2的焦点即可，但缺点是下次TEXT1录入要重新获得焦点
Private Sub Text2_Change()
Text2.SetFocus
SendKeys "{end}"
End Sub