如果有多个TextBox文本框，如何用键盘上的向下健使焦点从一个移到下一个？

直接用TAB不好吗

在TextBox的KeyDown事件中写代码

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
Text2.SetFocus
End If
End Sub

TEXT2是TEXT1的下一个文本框

也可以用Sendkeys发送一个Tab键

利用SendMessage。

都给你们说了,我帮顶吧.

我想说的是有多个文本框而不是一两个，能够实现类似在Excel表格中利用键盘上的↓能够使焦点从一个文本框移到下一个

给你的方案都是对 多个 实现的  100个也成～

使用控件数组,会不?如果不会,那不用看下面的代码了.
Option Explicit

Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index))
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
If Index = Text1.Count - 1 Then
Text1(0).SetFocus
Else
Text1(Index + 1).SetFocus
End If
ElseIf KeyCode = vbKeyUp Then
If Index = 0 Then
Text1(Text1.Count - 1).SetFocus
Else
Text1(Index - 1).SetFocus
End If
End If
End Sub

楼上版主的方法简单明了 顶一下