#import "comdllex.tlb" rename_namespace("VFPLib311")
#define p(i) parm->p[(i)].val

void _USERENTRY Thread(LPVOID lpParameter)
{
   CoInitialize( 0 );
   VFPLib311::ItestPtr * m_class = (VFPLib311::ItestPtr*)lpParameter;
   ... 
   m_class->RunTest();
   ...
   CoUninitialize ();
}

void FAR RunComVFP(ParamBlk FAR *parm) 
{
  IDispatch* _vfpptr = (IDispatch*)p( 0 ).ev_long ; 
  using namespace VFPLib311;
  CoInitialize( 0 );
  VFPLib311::ItestPtr m_myclass = (VFPLib311::ItestPtr)_vfpptr;
 //  _variant_t vresult; 
 //  vresult = m_myclass->RunTest();

   DWORD tid;
   HANDLE hThrd;
     if((hThrd = CreateThread( 0 , 0 ,(LPTHREAD_START_ROUTINE)Thread,(void *)this, 0 ,&tid)) == NULL)
         {
            hres = - 1 ;
         }
   CloseHandle(hThrd);
   CoUninitialize();
}

 JS 

 JS