前提: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