下面是程序原代码，在按向上或向左的方向键时，当Index=0的时候，程序运行会出错，应当如何解决这个问题，请各位高手指教。谢谢！

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then '按回车键
Index = (Index + 1) Mod 41
Text1(Index).SetFocus
End If

If KeyCode = vbKeyDown Then '按向下方向键
Index = (Index + 1) Mod 41
Text1(Index).SetFocus
End If

If KeyCode = vbKeyUp Then '按向上方向键
Index = (Index - 1)
Text1(Index).SetFocus
End If

If KeyCode = vbKeyLeft Then '按向左方向键
Index = (Index - 1)
Text1(Index).SetFocus
End If

If KeyCode = vbKeyRight Then '按向右方向键
Index = (Index + 1) Mod 41
Text1(Index).SetFocus
End If

End Sub

为什么要mod41?.

因为mod 41后才能产生循环。比如41个Text控件，编号从0--40，当Index=40时，40+1=41，而实际Index最大只有40而没有41，那么 mod 41后，其余数=0，那么，Index会重新从0开始，不会产生错误。否则就会有错误的提示。

因为mod 41后才能产生循环。比如41个Text控件，编号从0--40，当Index=40时，40+1=41，而实际Index最大只有40而没有41，那么 mod 41后，其余数=0，那么，Index会重新从0开始，不会产生错误。否则就会有错误的提示。

但当Index递减的时候，不知道如何解决这个问题。求高手指点。

有问题,看下面的,另外要学会节省代码(当然有比下面还精简的代码)!
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

dim i as Integer

If KeyCode = vbKeyReturn Then '按回车键
i = (Index + 1)
End If

If KeyCode = vbKeyDown Then '按向下方向键
i = (Index + 1)
End If

If KeyCode = vbKeyUp Then '按向上方向键
i = (Index - 1)
End If

If KeyCode = vbKeyLeft Then '按向左方向键
i = (Index - 1)
End If

If KeyCode = vbKeyRight Then '按向右方向键
i = (Index + 1)
End If

if i<0 then i = i+41
i = i Mod 41
Text1(i).SetFocus

End Sub

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

Right和Down不是一样么?..
Up和Left不是一样么?...那还要写两个代码?...
此代码测试过....没问题的..

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

谢谢指教！我试试看

Right和Down不是一样么?..
Up和Left不是一样么?...那还要写两个代码?...
此代码测试过....没问题的..

是一样的，但多几行代码在应用过程中可以多一种选择，其实也还是不错的哦！