在keydown里面写

if keycode=13 then text2.setfocus

哪有这么简单?
是一系列文本框数组.15个,能每个都这样编么.
要在此过程中能完成的话,就简单多了.
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

End Sub
但我做不了.

你这个是控件数组了!
用 sendkeys "{tab}"也可以了!

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
if index<15 then
if keyascii=13 then
text1(index+1).setfocus
end if
end if
End Sub
自己灵活点了!

唉,这个问题,论坛上早就有过了,现在的新人,明显缺点就是懒惰.

这个方法我也试过了,只是没有外层的 if index<15 then
但效果是一样的.从第一个能跳到第二个,或从第三个能跳到四,五,六个.
接着就提示
"实时错误 5"
"无效的过程调用或参数".
不知怎么回事?

总算找到毛病在哪了
中间有几个text.visible=false
跳不过去.
知道原因在哪,就好解决了.
谢谢各位热心.

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text1(Index + 1).SetFocus
End Sub