def wb:window

OPENWINDOW wb,0,0,800,700,@SIZE|@NOAUTODRAW|@MINBOX|@MAXBOX,0,"Test Browse",&main

 

IF ATTACHBROWSER(wb,getstartpath+"new.htm") = -1
    MESSAGEBOX wb, "Couldn't create browser control","Error"
ENDIF
 

run = 1
WAITUNTIL run=0

CLOSEWINDOW  wb

END
 

SUB main(),INT

	SELECT @MESSAGE
		CASE @IDCLOSEWINDOW
        run = 0
	ENDSELECT

RETURN 0
ENDSUB