Protected Overloads Overrides Function ProcessCmdKey(ByRef msg As Message, _
  ByVal keyData As Keys) As Boolean
	Select Case keyData
		Case Keys.Shift Or Keys.Up, Keys.Shift Or Keys.Down, Keys.Shift Or Keys.Left, _
  Keys.Shift Or Keys.Right
			HexEditKeyDown(Nothing, New KeyEventArgs(keyData))
			Return True
	End Select
	Return MyBase.ProcessCmdKey(msg, keyData)
End Function

Protected Overloads Overrides Function IsInputKey(ByVal keyData As Keys) As _
  Boolean
	Select Case keyData
		Case Keys.Down, Keys.Up, Keys.Left, Keys.Right
			Return True
	End Select
	Return False
End Function