'TAB' key in web control

[khemu]

I can't get the tab key to traverse a web form using the SHDocVw.WebBrowser control.
I am using a nonmodal declaration :

Code:

Copy      Help

str controls = "3"
str ax3SHD = ""
int hDlg = ShowDialog("kMain_Dlg" &kMain_Dlg &controls 0 1 WS_VISIBLE 0 0 -1 -1)
MessageLoop

The dialog :

Code:

Copy      Help

;\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

;BEGIN DIALOG
;0 "" 0x90CF0A44 0x110 0 0 454 287 "K H E M U :::: Webmail"
;3 ActiveX 0x54000000 0x10 16 40 422 232 "SHDocVw.WebBrowser"
;1 Button 0x54030001 0x4 306 8 48 14 "OK"
;2 Button 0x54030000 0x4 368 8 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2020002 "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,,MSHTML.HTMLDocument doc
,,doc=DT_GetHtmlDocument(hDlg 3)
,,doc.open("text/html")
,,;create html
,,str form.getmacro("login")
,,_s.format("%s\images\" CURDIR)
,,form.replacerx("QMIMAGEPATH/" _s)

,,doc.write(form) ;;variable number of arguments

,,out form
,,MSHTML.HTMLInputElement te=+doc.getElementById("user")
,,doc.focus
,,te.focus
,
,,MSHTML.HTMLInputElement- btn=+doc.getElementById("Login")
,,btn._setevents("btn_HTMLEvents")

,case WM_SIZE
,,kResizeMain(hDlg)
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1