Glenn,

The trick to get the interface is to open the object in the Object Browser, then navigate to the Interfaces branch of the treeview and drag the interface you want to implement to an open "Modify Command" window, this will create for you the required code, for example

x=NEWOBJECT("myclass")

DEFINE CLASS myclass AS session OLEPUBLIC

	IMPLEMENTS IWebBrowser2 IN "SHDocVw.ShellBrowserWindow"

	PROCEDURE IWebBrowser2_GoBack() AS VOID;
 				HELPSTRING "Navigates to the previous item in the history list."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_GoForward() AS VOID;
 				HELPSTRING "Navigates to the next item in the history list."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_GoHome() AS VOID;
 				HELPSTRING "Go home/start page."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_GoSearch() AS VOID;
 				HELPSTRING "Go Search Page."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_Navigate(URL AS STRING, Flags AS VARIANT, TargetFrameName AS VARIANT, PostData AS VARIANT, Headers AS VARIANT) AS VOID;
 				HELPSTRING "Navigates to a URL or file."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_Refresh() AS VOID;
 				HELPSTRING "Refresh the currently viewed page."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_Refresh2(Level AS VARIANT) AS VOID;
 				HELPSTRING "Refresh the currently viewed page."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_Stop() AS VOID;
 				HELPSTRING "Stops opening a file."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Application() AS VARIANT;
 				HELPSTRING "Returns the application automation object if accessible, this automation object otherwise.."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Parent() AS VARIANT;
 				HELPSTRING "Returns the automation object of the container/parent if one exists or this automation object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Container() AS VARIANT;
 				HELPSTRING "Returns the container/parent automation object, if any."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Document() AS VARIANT;
 				HELPSTRING "Returns the active Document automation object, if any."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_TopLevelContainer() AS LOGICAL;
 				HELPSTRING "Returns True if this is the top level object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Type() AS STRING;
 				HELPSTRING "Returns the type of the contained document object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Left() AS Number;
 				HELPSTRING "The horizontal position (pixels) of the frame window relative to the screen/container."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Left(eValue AS Number @);
 				HELPSTRING "The horizontal position (pixels) of the frame window relative to the screen/container."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Top() AS Number;
 				HELPSTRING "The vertical position (pixels) of the frame window relative to the screen/container."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Top(eValue AS Number @);
 				HELPSTRING "The vertical position (pixels) of the frame window relative to the screen/container."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Width() AS Number;
 				HELPSTRING "The horizontal dimension (pixels) of the frame window/object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Width(eValue AS Number @);
 				HELPSTRING "The horizontal dimension (pixels) of the frame window/object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Height() AS Number;
 				HELPSTRING "The vertical dimension (pixels) of the frame window/object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Height(eValue AS Number @);
 				HELPSTRING "The vertical dimension (pixels) of the frame window/object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_LocationName() AS STRING;
 				HELPSTRING "Gets the short (UI-friendly) name of the URL/file currently viewed."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_LocationURL() AS STRING;
 				HELPSTRING "Gets the full URL/path currently viewed."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Busy() AS LOGICAL;
 				HELPSTRING "Query to see if something is still in progress."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_Quit() AS VOID;
 				HELPSTRING "Exits application and closes the open document."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_ClientToWindow(pcx AS Integer @, pcy AS Integer @) AS VOID;
 				HELPSTRING "Converts client sizes into window sizes."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_PutProperty(Property AS STRING, vtValue AS VARIANT) AS VOID;
 				HELPSTRING "Associates vtValue with the name szProperty in the context of the object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_GetProperty(Property AS STRING) AS VARIANT;
 				HELPSTRING "Retrieve the Associated value for the property vtValue in the context of the object."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Name() AS STRING;
 				HELPSTRING "Returns name of the application."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_HWND() AS Number;
 				HELPSTRING "Returns the HWND of the current IE window."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_FullName() AS STRING;
 				HELPSTRING "Returns file specification of the application, including path."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Path() AS STRING;
 				HELPSTRING "Returns the path to the application."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Visible() AS LOGICAL;
 				HELPSTRING "Determines whether the application is visible or hidden."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Visible(eValue AS LOGICAL @);
 				HELPSTRING "Determines whether the application is visible or hidden."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_StatusBar() AS LOGICAL;
 				HELPSTRING "Turn on or off the statusbar."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_StatusBar(eValue AS LOGICAL @);
 				HELPSTRING "Turn on or off the statusbar."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_StatusText() AS STRING;
 				HELPSTRING "Text of Status window."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_StatusText(eValue AS STRING @);
 				HELPSTRING "Text of Status window."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_ToolBar() AS Integer;
 				HELPSTRING "Controls which toolbar is shown."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_ToolBar(eValue AS Integer @);
 				HELPSTRING "Controls which toolbar is shown."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_MenuBar() AS LOGICAL;
 				HELPSTRING "Controls whether menubar is shown."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_MenuBar(eValue AS LOGICAL @);
 				HELPSTRING "Controls whether menubar is shown."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_FullScreen() AS LOGICAL;
 				HELPSTRING "Maximizes window and turns off statusbar, toolbar, menubar, and titlebar."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_FullScreen(eValue AS LOGICAL @);
 				HELPSTRING "Maximizes window and turns off statusbar, toolbar, menubar, and titlebar."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_Navigate2(URL AS VARIANT, Flags AS VARIANT, TargetFrameName AS VARIANT, PostData AS VARIANT, Headers AS VARIANT) AS VOID;
 				HELPSTRING "Navigates to a URL or file or pidl."
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_QueryStatusWB(cmdID AS VARIANT) AS VARIANT;
 				HELPSTRING "IOleCommandTarget::QueryStatus"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_ExecWB(cmdID AS VARIANT, cmdexecopt AS VARIANT, pvaIn AS VARIANT, pvaOut AS VARIANT @) AS VOID;
 				HELPSTRING "IOleCommandTarget::Exec"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_ShowBrowserBar(pvaClsid AS VARIANT, pvarShow AS VARIANT, pvarSize AS VARIANT) AS VOID;
 				HELPSTRING "Set BrowserBar to Clsid"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_ReadyState() AS VARIANT
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Offline() AS LOGICAL;
 				HELPSTRING "Controls if the frame is offline (read from cache)"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Offline(eValue AS LOGICAL @);
 				HELPSTRING "Controls if the frame is offline (read from cache)"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Silent() AS LOGICAL;
 				HELPSTRING "Controls if any dialog boxes can be shown"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Silent(eValue AS LOGICAL @);
 				HELPSTRING "Controls if any dialog boxes can be shown"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_RegisterAsBrowser() AS LOGICAL;
 				HELPSTRING "Registers OC as a top-level browser (for target name resolution)"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_RegisterAsBrowser(eValue AS LOGICAL @);
 				HELPSTRING "Registers OC as a top-level browser (for target name resolution)"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_RegisterAsDropTarget() AS LOGICAL;
 				HELPSTRING "Registers OC as a drop target for navigation"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_RegisterAsDropTarget(eValue AS LOGICAL @);
 				HELPSTRING "Registers OC as a drop target for navigation"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_TheaterMode() AS LOGICAL;
 				HELPSTRING "Controls if the browser is in theater mode"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_TheaterMode(eValue AS LOGICAL @);
 				HELPSTRING "Controls if the browser is in theater mode"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_AddressBar() AS LOGICAL;
 				HELPSTRING "Controls whether address bar is shown"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_AddressBar(eValue AS LOGICAL @);
 				HELPSTRING "Controls whether address bar is shown"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_get_Resizable() AS LOGICAL;
 				HELPSTRING "Controls whether the window is resizable"
	* add user code here
	ENDPROC

	PROCEDURE IWebBrowser2_put_Resizable(eValue AS LOGICAL @);
 				HELPSTRING "Controls whether the window is resizable"
	* add user code here
	ENDPROC

ENDDEFINE