C / C++ / MFC

void VS_RenderShadowMap(
						float4 vPos : POSITION,
						out float4 vPosOut : POSITION,
						out float3 vPixelOut : TEXCOORD0)
{
	// pass vertex position through as usual
	vPosOut = mul(vPos, wvp);
	// output pixel pos
	vPixelOut=vPosOut.xyz;
}

float4 PS_RenderShadowMap(float3 vPixelPos : TEXCOORD0): COLOR
{
	// write z coordinate (linearized depth) to texture
	return vPixelPos.z;
}


// This technique is used when rendering meshes to the shadowmap
// 
technique RenderShadowMap
{
	pass p0
	{
		// render back faces to hide artifacts
		CullMode = CW;
		ZWriteEnable=TRUE;
		ZEnable=TRUE;
		VertexShader = compile vs_3_0 VS_RenderShadowMap();
		PixelShader = compile ps_3_0 PS_RenderShadowMap();
	}
}

void VS_SRT(
			in float4 vPos : POSITION,
			in float3 vNormal : NORMAL,
			in float4 vDiffuseTex : TEXCOORD0,
			out float4 vPosOut : POSITION,
			out float4 vShadowTex : TEXCOORD0,
			out float4 vDiffuseTexOut : TEXCOORD1
			)
{
	// pass vertex position through as usual
	vPosOut = mul(vPos, wvp);

	// coordinates for shadowmap
	vShadowTex = mul(vPos, g_mShadowMap);
	vDiffuseTexOut=vDiffuseTex;
}

float4 PS_SRT(
			  float4 vShadowTex : TEXCOORD0,
			  float4 vDiffuseTex: TEXCOORD1
			  ) : COLOR
{

	float4 Color=tex2D(DiffuseMapSampler1, vDiffuseTex);
	if (Color.a<0.5f)
	{
		discard;
	}
	
	//float fTexelSize=1.0f/g_fShadowMapSize;

	// project texture coordinates
	vShadowTex.xy/=vShadowTex.w;

.......
	if (g_bUseColorfulSplit==true)
	{
.......

#ifdef _RETURN_FLOAT4_
		return float4(fLightingFactor,1.0f,1.0f,1.0f);
#else
		return fLightingFactor;
#endif
	}
	
}

technique generateSRT
{
	pass p0
	{
		// render front faces
		//CullMode = CCW;
		CullMode=CCW;
		ZWriteEnable=TRUE;
		ZEnable=TRUE;		
			
		VertexShader = compile vs_3_0 VS_SRT();
		PixelShader = compile ps_3_0 PS_SRT();
	}
}

STDMETHODIMP CSampleAddin::AddToolBarButton(LPOLESTR lpToolBarName,LPOLESTR lpButtonName,LPOLESTR lpToolTip,LPOLESTR lpTag,long lFaceId,long lBitmapResource)
{
	TCHAR szTest[MAX_PATH]={0};
	// Add a new CommandBar and Button using Automation...
    VARIANT vtCmdBars;    VariantInit(&vtCmdBars);
    VARIANT vtCmdBar;     VariantInit(&vtCmdBar);
    VARIANT vtCtrls;      VariantInit(&vtCtrls);
    VARIANT vtButton;     VariantInit(&vtButton);
    VARIANT vtParam;      VariantInit(&vtParam);
	VARIANT vtButton1;     VariantInit(&vtButton1);
	VARIANT vtExp; VariantInit(&vtExp);
	HRESULT hr = S_FALSE;

	ZeroMemory(szTest,sizeof(szTest));
	hr = GetProperty(m_pParentApp, L"CommandBars", &vtCmdBars);
	if (FAILED(hr)) goto cleanup;

 // Look for our command bar -- this prevents us from making a new one
 // if the old one was never deleted.
    vtParam.vt = VT_BSTR; vtParam.bstrVal = ::SysAllocString(lpToolBarName);
    hr = CallMethod(vtCmdBars.pdispVal, L"Item", &vtCmdBar, 1, &vtParam);
        VariantClear(&vtParam);

 // If we can't find it, make a new bar...
    if (FAILED(hr)) {
        vtParam.vt = VT_BSTR; vtParam.bstrVal = ::SysAllocString(lpToolBarName);
        hr = CallMethod(vtCmdBars.pdispVal, L"Add", &vtCmdBar, 1, &vtParam);
            VariantClear(&vtParam);
        if (FAILED(hr)) goto cleanup;
    }

 // Store a reference...
    m_pOurCmdBar[nCount] = vtCmdBar.pdispVal;
    m_pOurCmdBar[nCount]->AddRef();

    hr = GetProperty(m_pOurCmdBar[nCount], L"Controls", &vtCtrls);
    if (FAILED(hr)) goto cleanup;

 // Grab our button to sink events...
    vtParam.vt = VT_BSTR; vtParam.bstrVal = ::SysAllocString(lpButtonName);
    hr = CallMethod(vtCtrls.pdispVal, L"Item", &vtButton, 1, &vtParam);
        VariantClear(&vtParam);


	_stprintf(szTest,TEXT("Value of hr at button item is (Item):  %X"),hr);
	OutputDebugString(szTest);


 // If we can't find it, make a new button...
    if (FAILED(hr))
	{

        vtParam.vt = VT_I4; vtParam.lVal = 1;
		hr = CallMethod(vtCtrls.pdispVal, L"Add", &vtButton, 1, &vtParam);
        if (FAILED(hr)) goto cleanup;







        vtParam.vt = VT_I4; vtParam.lVal = 3;
        hr = PutProperty(vtButton.pdispVal, L"Style", &vtParam);
        if (FAILED(hr)) goto cleanup;


		
		if(lBitmapResource > 0 )
		{
			HANDLE hBmp = NULL;
			hBmp = (HANDLE)LoadImage(_Module.m_hInst,MAKEINTRESOURCE(lBitmapResource),IMAGE_BITMAP,0,0,LR_LOADMAP3DCOLORS);
			
			
			// put bitmap into Clipboard
			::OpenClipboard(NULL);
			::EmptyClipboard();
			::SetClipboardData(CF_BITMAP, (HANDLE)hBmp);
			::CloseClipboard();
			::DeleteObject(hBmp);
			// set style before setting bitmap
			
			hr = CallMethod(vtButton.pdispVal, L"PasteFace", NULL, 0, NULL);
			if (FAILED(hr)) goto cleanup;
		}


		
        vtParam.vt = VT_BSTR; vtParam.bstrVal = ::SysAllocString(lpButtonName);
        hr = PutProperty(vtButton.pdispVal, L"Caption", &vtParam);
            VariantClear(&vtParam);
        if (FAILED(hr)) goto cleanup;


		 vtParam.vt = VT_I4; vtParam.lVal = 100;
        hr = PutProperty(vtButton.pdispVal, L"Width", &vtParam);
        if (FAILED(hr)) goto cleanup;

	
        vtParam.vt = VT_BSTR; vtParam.bstrVal = ::SysAllocString(lpTag);
        hr = PutProperty(vtButton.pdispVal, L"Tag", &vtParam);
            VariantClear(&vtParam);
        if (FAILED(hr)) goto cleanup;



        vtParam.vt = VT_I4; vtParam.lVal = 1;
        hr = PutProperty(vtButton.pdispVal, L"Visible", &vtParam);
        if (FAILED(hr)) goto cleanup;


		if(lFaceId > 0 )
		{
			vtParam.vt = VT_I4; vtParam.lVal = lFaceId;
			hr = PutProperty(vtButton.pdispVal, L"FaceId", &vtParam);
			if (FAILED(hr)) goto cleanup;
		}
		//TooltipText

		//TooltipText

		vtParam.vt = VT_BSTR; vtParam.bstrVal = ::SysAllocString(lpToolTip);
        hr = PutProperty(vtButton.pdispVal, L"TooltipText", &vtParam);
				VariantClear(&vtParam);
        if (FAILED(hr)) goto cleanup;

    }
	else
	{
		
        vtParam.vt = VT_I4; vtParam.lVal = 1;
        hr = PutProperty(vtButton.pdispVal, L"Visible", &vtParam);
        if (FAILED(hr)) goto cleanup;

	}



 // Now, set up an event sink for the Button...
    m_pButtonHandler = new CButtonHandler();
    if (NULL == m_pButtonHandler) goto cleanup;
    m_pButtonHandler->AddRef();
    m_pButtonHandler->SinkEvents(vtButton.pdispVal);

	m_pButtonHandler->m_pParentApp = m_pParentApp;

	
 // Make the CommandBar visible...
	vtParam.vt = VT_I4; 
	vtParam.lVal = 1;
    hr = PutProperty(m_pOurCmdBar[nCount], L"Visible", &vtParam);
    if (FAILED(hr)) goto cleanup;

 // Notify user that we are running (just for fun)...
    CHAR szBuffer[512];
    CHAR szName[256];

    hr = GetProperty(m_pParentApp, L"Name", &vtParam);
    if (FAILED(hr)) goto cleanup;
    
	::WideCharToMultiByte(CP_ACP, 0, vtParam.bstrVal, -1, szName, 256, 0, 0);
    wsprintf(szBuffer, "Hello from a VC COM addin. You are running in %s.", szName);
    //MessageBox(NULL, szBuffer, "My Addin", MB_SETFOREGROUND);

cleanup:
    VariantClear(&vtParam);
	VariantClear(&vtButton);
    VariantClear(&vtCtrls);
    VariantClear(&vtCmdBar);
    VariantClear(&vtCmdBars);
    

	if (nCount > 1)
		nCount = 0;
	else
		nCount++;
	return hr;
}