INSTALL @lib$+"WINLIB5"
SYS "LoadLibrary", "ATL.DLL" TO atl%
SYS "GetProcAddress", atl%, "AtlAxWinInit" TO `AtlAxWinInit`
SYS `AtlAxWinInit`
ON CLOSE PROCcleanup : QUIT
ON ERROR SYS "MessageBox", @hwnd%, REPORT$, 0, 0 : PROCcleanup : QUIT
*ESC OFF
url$ = "http://www.rtrussell.co.uk/"
DIM rc{l%,t%,r%,b%}
SYS "GetClientRect", @hwnd%, rc{}
hATL% = FN_createwindow("AtlAxWin", url$, 0, 0, rc.r%, rc.b%, 0, &200000, 0)
REPEAT
WAIT 0
UNTIL FALSE
END
DEF PROCcleanup
hATL% += 0 : IF hATL% PROC_closewindow(hATL%) : hATL% = 0
ENDPROC