如何使用上下键？

[smilinghuhu]

在form窗口中有文本框数组Text1(0)........Text(19)
在Text1(0)获得焦点,在Text1(0).Text中输入5个字符后
如何能使光标自动跳到Text1(1),再依次类推....

如不行的话,如何用上下键来实现光标上下移动

[ryuginka]

在文本框的KEYUP事件里编程,上标好象是keycode=38,
if keycode=38 then

'你的程序
end if

[supergreenbean]

Private Sub Text1_Change(Index As Integer)
With Text1(Index)
If Len(.Text) >= 5 Then
.Text = Left$(.Text, 5)
With Text1
Text1(IIf(Index = .UBound, .LBound, Index + 1)).SetFocus
End With
End If
End With
End Sub

[G10]

Private Sub Text1_Change(Index As Integer)
If Len(Text1(Index).Text) >= 5 Then
If (Index + 1) > 19 Then Index = -1
Text1(Index + 1).SetFocus
End If
End Sub

[smilinghuhu]

上面的方法能用
不过我也想知道用上下键来控制
那位大侠能再说说
: )
谢谢