COM

// MSDN CODE:
//
HRESULT CreateComponentCategory(CATID catid, WCHAR* catDescription)
{
   ICatRegister* pcr = NULL ;
   HRESULT hr = S_OK ;

   hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
      NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&pcr);
   if (FAILED(hr))
      return hr;

   // Make sure the HKCR\Component Categories\{..catid...}
   // key is registered.
   CATEGORYINFO catinfo;
   catinfo.catid = catid;
   catinfo.lcid = 0x0409 ; // english

   // Make sure the provided description is not too long.
   // Only copy the first 127 characters if it is.
   int len = wcslen(catDescription);
   if (len>127)
      len = 127;
   wcsncpy(catinfo.szDescription, catDescription, len);
   // Make sure the description is null terminated.
   catinfo.szDescription[len] = '\0';

   hr = pcr->RegisterCategories(1, &catinfo);
   pcr->Release();

   return hr;
}

HRESULT RegisterCLSIDInCategory(REFCLSID clsid, CATID catid)
{
   // Register your component categories information.
   ICatRegister* pcr = NULL ;
   HRESULT hr = S_OK ;
   hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
      NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&pcr);
   if (SUCCEEDED(hr))
   {
      // Register this category as being "implemented" by the class.
      CATID rgcatid[1] ;
      rgcatid[0] = catid;
      hr = pcr->RegisterClassImplCategories(clsid, 1, rgcatid);
   }

   if (pcr != NULL)
      pcr->Release();

   return hr;
}

// I made this function a static member of my control.
/*static*/ HRESULT CYourActiveXControl::RegisterSafetyCategories()
{
   HRESULT hr = S_OK;
   hr = CreateComponentCategory(CATID_SafeForInitializing, L"Controls safely initializable from persistent data!");
   if (FAILED(hr))
      return hr;

   hr = RegisterCLSIDInCategory(IID_YourActiveXControlHere, CATID_SafeForInitializing);
   if (FAILED(hr))
      return hr;

   // Mark the control as safe for scripting.

   hr = CreateComponentCategory(CATID_SafeForScripting, L"Controls safely scriptable!");
   if (FAILED(hr))
      return hr;

   hr = RegisterCLSIDInCategory(IID_YourActiveXControlHere, CATID_SafeForScripting);
   if (FAILED(hr))
      return hr;
   
   return hr;
}
//
// END MSDN CODE.

Stop being PC and accounting for everyone and his momma's timeframe. Just enjoy your - Rohit Sinha in the content-challenged thread

<br />
	<OBJECT ID=fevis CLASSID="clsid:383680F6-54B7-4970-BB12-A41E7AC0B94B"<br />
	HEIGHT=400 WIDTH=680 CODEBASE="http://localhost/controls/fevisactivex.cab#version=1,0,0,2"><br />
	</OBJECT><br />

<br />
<script language="vbscript"><br />
  fevis.OpenFromURL "http://localhost/gallery/connectingrod.fvs"<br />
</script><br />

<br />
Call fevis.OpenFromURL( "http://localhost/gallery/connectingrod.fvs" )<br />

Stop being PC and accounting for everyone and his momma's timeframe. Just enjoy your - Rohit Sinha in the content-challenged thread