<     > 

Getting the Application Object

Use the CComQIPtr COM interface pointer and set the class to match the name of the object from the XSI object model:

   // Get the XSI application object
   CComQIPtr<XSIApplication,&IID_XSIApplication> xsiApp(in_pXSIApp);

This is the equivalent to the following VBScript snippet:

   ' Get the XSI application object
   Set oXSI = CreateObject("XSI.Application")

 <     >