' This example requires MS WORD
' If you're using a localized version with a foreign language,
' you'll have to adjust the parameter names to match.
' Comments in italics indicate the old style syntax before
' type checking was disabled.  You can choose either approach.

'$ESCAPECHARS ON
$Include "Rapidq.Inc"
declare sub Navy

CREATE Form AS QFORM
Caption = "Viewer"
Width = 400
Height = 400
Center
AutoScroll=0
OnShow=Navy
	CREATE Explorer AS QOLECONTAINER
		Top=10
		Width=Form.ClientWidth
		Height = Form.ClientHeight
	'createObject(WebBrowser.1)
	END CREATE
END CREATE

'Insert your initialization code here
Form.ShowModal

sub Navy
Explorer.createObject(WebBrowser.1)

Explorer.Navigate "C:\BAS\RAPIDQ\RQDPhlp\htm\RQDP Release 01\examples\ole\ide.htm"

end sub