XProfan

 $P*
USERMESSAGES 16
Declare exit%,edit1&,edit2&,edit3&
Def GetSysColor(1) !USER32,GetSysColor

Proc TabTaste

    if GetFocus(Edit1&)

        SetFocus(Edit2&)

    elseif GetFocus(Edit2&)

        SetFocus(Edit3&)

    elseif GetFocus(Edit3&)

        SetFocus(Edit1&)

    endif

EndProc

SetTrueColor 1
WindowStyle 26
WindowTitle TabTaste
Window ((%maxX/2)-115),((%maxY/2)-60)-230,120
CLS GetSysColor(15)
edit1&=Create(Edit,%hwnd,,10,10,200,24)
edit2&=Create(Edit,%hwnd,,10,35,200,24)
edit3&=Create(Edit,%hwnd,,10,60,200,24)
SetFocus(edit1&)

WhileNot exit%

    GetMessage
    Case %Umessage=16:exit%=1
    Case IsKey(9):TabTaste

Wend

AddHotKey 1000,9,0
...
While..
...
Case Menuitem(1000):TabTaste