所以要加上前面的啊
你报 的错就是因为没有加引起的,你的index必须小于最大的index才可以的!
如果等于最大的index那么就要跳转到别的控件上了， 这些要自己处理的!

....受不了了,搞的那么复杂干什么.
你先将FORM的KeyPreview设为TRUE,把控件的TABINDEX顺序设置好.然后在
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo errForm_KeyDown
Select Case KeyCode
Case vbKeyReturn
SendKeys "{TAB}", True
End Select

exitForm_KeyDown:
Exit Sub

errForm_KeyDown:
gsShowDebugMsg Err.Description, Err, "frmLankSet.Form_KeyDown"
Err.Clear
Resume exitForm_KeyDown

End Sub