XProfan

 {$cleq}
windowstyle 8 | 512
cls
var h&=create("MultiEdit",hWnd,"",0,0,width(%hWnd),height(%hWnd))
setFont h&,create("font","Courier",10,0,0,0,0)
setWindowLong(h&,gwl_userData,setWindowLong(h&,gwl_wndProc,procaddr(myMultiEdit.wndProc)))
setFocus(h&)

whilenot %key==2

    waitInput

wend

end

nProc myMultiEdit.wndProc

    Parameters wnd&,msg&,wp&,lp&

    if msg&==wm_keydown and wp&==vk_tab

        sendMessage(wnd&,em_replaceSel,true,chr $(9))
        return 0

    endif

    return callWindowProc(getWindowLong(wnd&,gwl_userData),wnd&,msg&,wp&,lp&)

endproc