C / C++ / MFC

//idl<br />
HRESULT UseThis([in] VARIANT StringParam, [out, retval] long *ret);<br />
<br />
//cpp<br />
STDMETHODIMP CObj::UseThis(VARIANT StringParam, long *ret)<br />
{<br />
	//mark as NOT OK<br />
	*ret = 1;<br />
<br />
	// Be sure we have an array of strings.<br />
	if((StringParam.vt & VT_ARRAY) && (StringParam.vt & VT_BSTR))<br />
	{		<br />
		SAFEARRAY *pString = StringParam.parray;<br />
		BSTR *bstrArray;<br />
		CComBSTR bstrRet;<br />
		// Lock it down.<br />
		SafeArrayAccessData(pString, (void**)&bstrArray);<br />
		<br />
		// Read each item.<br />
		for(ULONG i = 0; i < pString->rgsabound->cElements; i++)<br />
		{<br />
			bstrRet = bstrArray[i];	<br />
		 }<br />
		// Unlock it.<br />
		SafeArrayUnaccessData(pString);<br />
		SafeArrayDestroy(pString);<br />
<br />
		//mark as OK<br />
		*ret = 0;<br />
	}<br />
<br />
	return S_OK;<br />
}

Dim obj<br />
Dim ret<br />
Dim strParam(2)<br />
<br />
    Set obj = Server.CreateObject("MyATL.Obj")    <br />
    <br />
    strParam(0) = "We"<br />
    strParam(1) = "love"<br />
    strParam(2) = "COM"    <br />
    <br />
    ret = obj.UseThis(strParam)<br />
    <br />
    Response.Write "Result is : " & ret<br />
    <br />
    Set obj = Nothing

ShellExecute(..., "res://program.exe/PDF/mypdffile.pdf", ...)

ShellExecute(..., "res://program.exe/myhtmfile.htm", ...)

// Set application caption - caption needs to be allocated from the
// heap (see MSDN CWinApp doc)
free ((void*) m_pszAppName);
if (isLiteEdition())
   m_pszAppName = _tcsdup (_T("MyApp - Lite"));
else
   m_pszAppName = _tcsdup (_T("MyApp - Pro"));