COM

CEventsDispatch g_XLEventDispatch;
IConnectionPoint *m_pConnectionPoint;
DWORD m_adviseCookie;


	static const GUID IID_IExcel8AppEvents = 
	{0x00024413,0x000,0x0000,{0xc0,0x00,0x0,0x00,0x00,0x00,0x00,0x46 } };

	HRESULT hr;

	IConnectionPointContainer *pConnPtContainer;
	hr = m_pXlApp->QueryInterface(IID_IConnectionPointContainer,(void **)&pConnPtContainer);
	if(hr!=0)
		return;
	hr = pConnPtContainer->FindConnectionPoint(IID_IExcel8AppEvents,&m_pConnectionPoint);
	if(hr!=0)
		return;
	hr = m_pConnectionPoint->Advise(&g_XLEventDispatch, &m_adviseCookie);
	if(hr!=0)
		return;
	pConnPtContainer->Release();

class CEventsDispatch : public IDispatch
{
	public:
		ULONG refCount;

	CEventsDispatch::CEventsDispatch()
	{
		refCount=1;
	}

	CEventsDispatch::~CEventsDispatch()
	{
	}

	virtual HRESULT __stdcall QueryInterface(REFIID riid, void **ppvObject)
	{
		if(IsEqualGUID(riid, IID_IDispatch) || IsEqualGUID(riid, IID_IUnknown))
		{
			this->AddRef();
			*ppvObject = this;
			return S_OK;
		}
		
		*ppvObject = NULL;
		return E_NOINTERFACE;
	}

	virtual ULONG _stdcall AddRef(void) 
	{
		return ++refCount;
	}

	virtual ULONG _stdcall Release(void) 
	{
		if(--refCount <= 0)
		{
			//Delete this;
			return 0;
		}

		return refCount;
	}

	// IDispatch methods.
	virtual HRESULT _stdcall GetTypeInfoCount(UINT *pctinfo) 
	{
		if(pctinfo) *pctinfo = 0;
		return E_NOTIMPL;
	}

	virtual HRESULT _stdcall GetTypeInfo(UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo) 
	{
		return E_NOTIMPL;
	}

	virtual HRESULT _stdcall GetIDsOfNames(REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid,DISPID *rgDispId) 
	{
		return E_NOTIMPL;
	}

	virtual HRESULT _stdcall Invoke(DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags,DISPPARAMS *pDispParams, VARIANT *pVarResult,EXCEPINFO *pExcepInfo, UINT *puArgErr) 
	{
		// do something with the event;
		return S_OK;
	}
};