为了减少代码和逻辑操作，首先你的控件的排位和命名要有规律，如图
此主题相关图片如下：无标题.gif
然后窗口设置KeyDown事件如下：
If Typeof e.Sender Is WinForm.TextBox Then
Dim Index As Integer = CInt(e.Sender.Name.Replace("TextBox",""))
Select Case e.KeyCode
Case keys.Down
e.Cancel = True
If Index <> 3 AndAlso Index <> 6 Then e.Form.Controls("TextBox" & (Index+1)).Select
Case keys.Left
e.Cancel = True
If Index > 3 Then e.Form.Controls("TextBox" & (Index-3)).Select
Case keys.Right
e.Cancel = True
If Index <= 3 Then e.Form.Controls("TextBox" & (Index+3)).Select
Case keys.Up
e.Cancel = True
If Index <> 1 AndAlso Index <> 4 Then e.Form.Controls("TextBox" & (Index-1)).Select
End Select
End If
[此贴子已经被作者于2017/2/3 23:09:33编辑过]
加好友 
发短信
Post By：2017/2/3 22:36:00 [显示全部帖子]
