這是利用 enter 來切到下一個元件 Focus
不過這用法遇到框架內的就卡住了!! 有興趣可參考
---
Dim k As Integer = 0
If e.KeyData = Keys.Enter Then
k = sender.tabindex
NextControl(k)
End If
Public Sub NextControl(ByVal ctrlTabIndex As Integer)
For Each ctrl As Control In Controls
If (ctrl.TabIndex) = (ctrlTabIndex + 1) Then
ctrl.Focus()
End If
Next
End Sub