// COPYRIGHT DASSAULT SYSTEMES 1997
...
    /**
     * Returns the active viewer in the window.
     * <dl>
     * <dt><b>Example:</b>
     * <dd>
     * This example retrieves the active viewer in the
     * <tt>CADWindow</tt> window in <tt>ViewerToWorkIn</tt>.
     * <pre>
     * Dim ViewerToWorkIn As Viewer
     * Set ViewerToWorkIn = CADWindow.<font color="red">ActiveViewer</font>
     * </pre>
     * </dl>
     */
#pragma PROPERTY ActiveViewer
    HRESULT get_ActiveViewer(out /*IDLRETVAL*/ CATIAViewer oViewer);

...