'oleidl.ab

Const Enum OLERENDER 
	OLERENDER_NONE = 0
	OLERENDER_DRAW = 1
	OLERENDER_FORMAT = 2
	OLERENDER_ASIS = 3 
End Enum

Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
Interface IOleClientSite 
	Inherits IUnknown

	Function SaveObject() As HRESULT
	Function GetMoniker(
		/* [in] */ dwAssign As DWord,
		/* [in] */ dwWhichMoniker As DWord,
		/* [out] */ ByRef pmk As *IMoniker) As HRESULT
	Function GetContainer(
		/* [out] */ ByRef pContainer As VoidPtr /* *IOleContainer*/) As HRESULT
	Function ShowObject() As HRESULT
	Function OnShowWindow(
		fShow As BOOL) As HRESULT
	Function RequestNewObjectLayout() As HRESULT
End Interface

Dim IID_IOleObject = [&h00000112, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
Interface IOleObject
	Inherits IUnknown

	Function SetClientSite(
		/* [unique][in] */ pClientSite As IOleClientSite) As HRESULT    
	Function GetClientSite(
		/* [out] */ ByRef pClientSite As *IOleClientSite) As HRESULT
	Function SetHostNames(
		/* [in] */ szContainerApp As LPCOLESTR,
		/* [unique][in] */ szContainerObj As LPCOLESTR) As HRESULT
	Function Close(
		/* [in] */ dwSaveOption As DWord) As HRESULT   
	Function SetMoniker(
		/* [in] */ dwWhichMoniker As DWord,
		/* [unique][in] */ pmk As *IMoniker) As HRESULT
	Function GetMoniker(
		/* [in] */ dwAssign As DWord,
		/* [in] */ dwWhichMoniker As DWord,
		/* [out] */ ByRef pmk As *IMoniker) As HRESULT
	Function InitFromData(
		/* [unique][in] */ pDataObject As IDataObject,
		/* [in] */ fCreation As BOOL,
		/* [in] */ dwReserved As DWord) As HRESULT
	Function GetClipboardData(
		/* [in] */ dwReserved As DWord,
		/* [out] */ ByRef pDataObject As *IDataObject) As HRESULT
	Function DoVerb(
		/* [in] */ iVerb As Long,
		/* [unique][in] */ lpmsg As *MSG,
		/* [unique][in] */ pActiveSite As IOleClientSite,
		/* [in] */ lindex As Long,
		/* [in] */ hwndParent As HWND,
		/* [unique][in] */ lprcPosRect As *RECT /*LPCRECT*/) As HRESULT
	Function EnumVerbs(
		/* [out] */ ByRef pEnumOleVerb As *IUnknown /*IEnumOLEVERB*/) As HRESULT
	Function Update() As HRESULT
	Function IsUpToDate() As HRESULT
	Function GetUserClassID(
		/* [out] */ ByRef Clsid As CLSID) As HRESULT
	Function GetUserType(
		/* [in] */ dwFormOfType As DWord,
		/* [out] */ ByRef pszUserType As LPOLESTR) As HRESULT
	Function SetExtent(
		/* [in] */ dwDrawAspect As DWord,
		/* [in] */ ByRef sizel As SIZEL) As HRESULT
	Function GetExtent(
		/* [in] */ dwDrawAspect As DWord,
		/* [out] */ ByRef sizel As SIZEL) As HRESULT
	Function Advise(
		/* [unique][in] */ pAdvSink As *IAdviseSink,
		/* [out] */ ByRef dwConnection As DWord) As HRESULT
	Function Unadvise(
		/* [in] */ dwConnection As DWord) As HRESULT
	Function EnumAdvise(
		/* [out] */ ByRef penumAdvise As IEnumSTATDATA) As HRESULT
	Function GetMiscStatus(
		/* [in] */ dwAspect As DWord,
		/* [out] */ ByRef dwStatus As DWord) As HRESULT
	Function SetColorScheme(
		/* [in] */ ByRef Logpal As LOGPALETTE) As HRESULT
End Interface