界面录入时，利用回车键、上下箭头移动光标！

前提：text1控件组的“TabIndex ”顺序需预先设置。

Private Sub Text1_GotFocus(Index As Integer)
SendKeys "{End}+{Home}"
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then SendKeys "{TAB}"
If KeyCode = vbKeyUp Then SendKeys "+{TAB}"
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0

End Sub