COM

Dim AcadApp As AutoCAD.AcadApplication
Set AcadApp = CreateObject("AutoCAD.Application")

Dim tempLine As AutoCAD.AcadLine
Set tempLine = CreateObject("AutoCAD.AcadLine")

class ATL_NO_VTABLE CAnalisis :
	public CComObjectRootEx<ccomsinglethreadmodel>,
	public CComCoClass<canalisis,>,
	public ISupportErrorInfo,
	public IDispatchImpl,
	public IPersistStreamInit
{
private:
	typedef struct {
		DOUBLE size;
		float color;
		float light;
		
		BSTR imgName;
		
		BSTR  uname;

	} Image;

	Image img;

</ccomsinglethreadmodel>

STDMETHODIMP CAnalisis::getLight(FLOAT* light)
{
	
	*light=img.light;
	return S_OK;
}

STDMETHODIMP CAnalisis::setLight(FLOAT light)
{
	img.light=light;
	return S_OK;
}

STDMETHODIMP CAnalisis::getImgName(BSTR* imgName)
{
	*imgName = img.imgName;

	return S_OK;
}

STDMETHODIMP CAnalisis::setImgName(BSTR imgName)
{
	
	img.imgName=imgName;
	return S_OK;
}

// For these ActiveX components we need only smart interface pointer
		IMSMQQueueInfosPtr	pQueueInfos; 
		IMSMQQueueInfoPtr	pQueueInfo; 
		IMSMQQueuePtr		pQueue;
		IUnknownPtr			pIUnknown;
		// Instanciate the follwing ActiveX components
		IMSMQQueryPtr		pQuery(__uuidof(MSMQQuery));
		IMSMQMessagePtr		pMessage(__uuidof(MSMQMessage));
		

		IAnalisisPtr pAnalisis(__uuidof(Analisis));

                WCHAR *  imagen;		
		imagen = L"imagen1.jpg";
                pAnalisis->setImgName(imagen);

                
                 (...)

                pAnalisis->setFruitSize(20.00);

                 (...)
                 
                pQueueInfo = new IMSMQQueueInfoPtr( __uuidof(MSMQQueueInfo) );
			
		pQueueInfo->PathName = "MYCOMPUTER\\private$\\myprivatequeue";
		
	        pQueue = pQueueInfo->Open(MQ_SEND_ACCESS, MQ_DENY_NONE);
		pMessage->Body = static_cast<iunknown*>(pAnalisis);
                pMessage->Send(pQueue);