DataGridViewのカーソル制御

ええと、VB2010のDataGridViewで矢印キーとかEnterキーとかTabキーでカーソル移動をさせたいなーと思って苦戦したのでメモ。
非表示や入力不可のセルを飛ばして移動します。端のセルの場合は前の行または次の行に移動します。
Shift＋TabはTabと逆に移動します。
※Form内に以下を記述して、そのFormのDataGridViewのテキストの列にはmyDataGridViewTextBoxColumnを使用します。

Friend Class myDataGridViewTextBoxColumn
Inherits DataGridViewTextBoxColumn
Public Overrides Property CellTemplate() As System.Windows.Forms.DataGridViewCell
Get
Return New myDataGridViewTextBoxCell
End Get
Set(ByVal value As System.Windows.Forms.DataGridViewCell)
MyBase.CellTemplate = value
End Set
End Property
End Class
Friend Class myDataGridViewTextBoxCell
Inherits DataGridViewTextBoxCell
Public Overrides ReadOnly Property EditType() As System.Type
Get
Return GetType(myDataGridViewTextBoxEditingControl)
End Get
End Property
End Class
Friend Class myDataGridViewTextBoxEditingControl
Inherits DataGridViewTextBoxEditingControl
Private Enum MoveTo
None = 0
PrevCell = -1
NextCell = 1
End Enum
Protected Overrides Sub OnPreviewKeyDown(e As PreviewKeyDownEventArgs)
Select Case e.KeyCode
Case Keys.Enter, Keys.Tab
' EnterキーとTabキーをEditingControlWantsInputKey()で拾えるようにする
e.IsInputKey = True
Case Else
Call MyBase.OnPreviewKeyDown(e)
End Select
End Sub
Public Overrides Function EditingControlWantsInputKey(ByVal keyData As System.Windows.Forms.Keys, _
ByVal dataGridViewWantsInputKey As Boolean) As Boolean
Select Case keyData
Case Keys.Left, Keys.Right, Keys.Enter, Keys.Tab, (Keys.Shift Or Keys.Tab)
' カーソル移動キーの押下時処理（左右・Enter・Tab）
Dim intMove As MoveTo = MoveTo.None
Dim blnWk As Boolean = False
Select Case keyData
Case Keys.Enter, Keys.Tab
intMove = MoveTo.NextCell
Case (Keys.Shift Or Keys.Tab)
intMove = MoveTo.PrevCell
Case Keys.Left
If Me.SelectionStart = 0 Then blnWk = True
If Me.SelectionLength = Me.Text.Length Then blnWk = True
If blnWk = True Then
intMove = MoveTo.PrevCell
End If
Case Keys.Right
If Me.SelectionStart = Me.Text.Length Then blnWk = True
If Me.SelectionLength = Me.Text.Length Then blnWk = True
If blnWk = True Then
intMove = MoveTo.NextCell
End If
End Select
If intMove <> MoveTo.None Then
Dim grid As DataGridView = Me.EditingControlDataGridView
Call Me.SetFocusNextCell(grid, intMove)
End If
Return True
Case Else
Return MyBase.EditingControlWantsInputKey(keyData, dataGridViewWantsInputKey)
End Select
End Function
Private Sub SetFocusNextCell(ByVal grid As DataGridView, ByVal intMove As MoveTo)
With grid
Dim col As Integer = .CurrentCellAddress.X
Dim row As Integer = .CurrentCellAddress.Y
Dim r As Integer = row
Dim c As Integer
Dim blnWk As Boolean
Dim nextRow As Integer = -1
Dim nextCol As Integer = -1
Dim sc As Integer
Dim maxrow As Integer
Dim ccnt As Integer = .ColumnCount
Dim rcnt As Integer = .RowCount
' 直近の有効なセルにカーソルを移動させる
Select Case intMove
Case MoveTo.PrevCell
maxrow = row - 1
If maxrow < 0 Then maxrow = row
For r = row To maxrow Step -1
sc = col - 1
If r < row Then sc = ccnt - 1
For c = sc To 0 Step -1
blnWk = True
' 適当にチェック（VisibleとかReadOnlyとか）
If blnWk = True Then
nextRow = r
nextCol = c
Exit For
End If
Next c
If nextRow >= 0 Then Exit For
Next r
Case MoveTo.NextCell
maxrow = row + 1
If maxrow >= rcnt Then maxrow = row
For r = row To maxrow
sc = col + 1
If r > row Then sc = 0
For c = sc To ccnt - 1
blnWk = True
' 適当にチェック（VisibleとかReadOnlyとか）
If blnWk = True Then
nextRow = r
nextCol = c
Exit For
End If
Next c
If nextRow >= 0 Then Exit For
Next r
End Select
If nextRow >= 0 And nextCol >= 0 Then
.CurrentCell = .Rows(nextRow).Cells(nextCol)
End If
End With
End Sub
End Class

この辺を参考にさしてもらいました。多謝。
http://dobon.net/vb/bbs/log3-42/25144.html
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=41202&forum=7
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=47305&forum=7
http://social.msdn.microsoft.com/Forums/ja/vbexpressja/thread/fc1a0d8d-23d1-4a4e-a88c-f9a1edd81cff
http://social.msdn.microsoft.com/Forums/ja-JP/csharpgeneralja/thread/234162d6-b3a6-4839-80b1-06641216f458