' ------------ 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