Народ,
Кто делал такую тему, перемещение объекта на форме при помощи стрелок (клавиш перемещения курсора). Мышкой понятно, а вот клавишами в KeyPress +/- Left / TOP ...
при нажатии улетает фокус на другой объект.
Кто подскажет? Всем спасибо.

Разобрался таким способом.
LPARAMETERS nKeyCode, nShiftAltCtrl


IF INLIST(nKeyCode,5,24,4,19,56,50,54,52)

NODEFAULT

DO CASE
CASE nKeyCode = 5
This.Top = This.Top - 1
CASE nKeyCode = 24
This.Top = This.Top + 1
CASE nKeyCode = 4
This.Left = This.Left + 1
CASE nKeyCode = 19
This.left = This.Left - 1
CASE nKeyCode = 56
This.Height = This.Height - 1
CASE nKeyCode = 50
This.Height = This.Height + 1
CASE nKeyCode = 54
This.Width = This.Width + 1
CASE nKeyCode = 52
This.Width = This.Width - 1
ENDCASE
ELSE
RETURN DODEFAULT(nKeyCode, nShiftAltCtrl)
ENDIF

Вроде работает как задумал...