Удержать фокус в контроле

[Joo]

Создаю контрол, наследник от Control.
Мне необходимо чтобы при нажатии клавиш Left, Right, Up, Down и Tab фокус оставался на контроле. Пробовал обрабатывать WM_KEYDOWN один фиг уходит фокус, ну с Tab еще ладно, но жмакая на стрелки фокус тоже теряется.

[Williams]

В событии LostFocus метод Control.Focus() не пробовал?

[Sebas]

а событие LostFocus уже отменили?

[Joo]

Это не есть гуд. При LostFocus делать назад фокус. В общем вот сделал.

Код: Выделить всё

   
...
    Public Const WM_GETDLGCODE = &H87
    Public Const DLGC_WANTARROWS = &H1
    Public Const DLGC_WANTTAB = &H2
    Public Const DLGC_HASSETSEL = &H8
    Public Const DLGC_WANTCHARS = &H80
...
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_GETDLGCODE
                m.Result = DLGC_WANTARROWS Or DLGC_WANTTAB Or DLGC_HASSETSEL Or DLGC_WANTCHARS
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub