' ------------
DECLARE SUB EnterJump(key AS BYTE)
DECLARE FUNCTION GetFocus Lib "user32" Alias "GetFocus"() AS LONG
DECLARE FUNCTION Setfocus Lib "user32" Alias "SetFocus"(hwnd As Long) AS LONG
 
CREATE Form AS QFORM
    Caption = "Jump Enter"
    Width = 170
    Height = 170
    Center
    CREATE Edit1 AS QEDIT
        Text = "Edit1"
        Left = 20
        Top = 20
        OnKeyPress = EnterJump
    END CREATE
    CREATE Edit2 AS QEDIT
        Text = "Edit2"
        Left = 20
        Top = 60
        OnKeyPress = EnterJump
    END CREATE
    CREATE Edit3 AS QEDIT
        Text = "Edit3"
        Left = 20
        Top = 100
        OnKeyPress = EnterJump
    END CREATE
END CREATE
 
SUB EnterJump(key AS BYTE)
  IF key <> 13 THEN EXIT SUB
  Handle = GetFocus()
  SELECT CASE Handle
    CASE Edit1.Handle
      SetFocus(Edit2.Handle)
    CASE Edit2.Handle
      SetFocus(Edit3.Handle)
    CASE Edit3.Handle
      SetFocus(Edit1.Handle)
   END SELECT
END SUB
 
Form.ShowModal