关于文本控件操作的的问题

Question

我给一个警察书记员朋友做一个小软件,用来记审讯时的记录:Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then Text3.Text = Text3.Text + vbCrLf + Text1.Text+":"
If KeyCode = 113 Then Text3.Text = Text3.Text + vbCrLf + Text2.Text+":"
End Sub其中: 是在text3中进行记录,text1是审讯员的姓名;text2是嫌疑人的姓名
      在记录过程中,按F2(keycode=112),在text3自动加入text1是审讯员的姓名
     在记录过程中,按F2(keycode=112),在text3自动加入text2是嫌疑人的姓名
但是,现在有一个问题,是在操作F1或是F2后,文本3内的光标没有停留在文本末尾,而是跑到文本框前諯,无法直接进行接下的文本输入,要再一次用鼠标进行定位.求哪位大侠帮忙.....

Answer 1

在If KeyCode = 112 Then Text3.Text = Text3.Text + vbCrLf + Text1.Text+":" 
之后加一句：SendKeys "{End}"

Answer 2

Private Sub Form_Load()
Text1.Text = "警察"
Text2.Text = "嫌疑犯"
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then Text3.Text = Text3.Text + vbCrLf + Text1.Text + ":"
Text3.SelStart = Len(Text3.Text)
If KeyCode = 113 Then Text3.Text = Text3.Text + vbCrLf + Text2.Text + ":"
Text3.SelStart = Len(Text3.Text)
End Sub