! EXCEL97A.f90

! This module contains the Automation interfaces of the objects defined in 
! D:\Program Files\Microsoft Office\Office\EXCEL8.OLB
! Generated by the Fortran Module Wizard on xx/xx/xx

	MODULE EXCEL97A
		USE DFWINTY
		USE DFAUTO
		IMPLICIT NONE
	

		! CLSIDs		
		TYPE (GUID), PARAMETER :: CLSID_Global = &
			GUID(#00020812, #0000, #0000, &
			  CHAR('C0'X)//CHAR('00'X)//CHAR('00'X)//CHAR('00'X)// &
			  CHAR('00'X)//CHAR('00'X)//CHAR('00'X)//CHAR('46'X))
		TYPE (GUID), PARAMETER :: CLSID_Worksheet = &
			GUID(#00020820, #0000, #0000, &
			  CHAR('C0'X)//CHAR('00'X)//CHAR('00'X)//CHAR('00'X)// &
			  CHAR('00'X)//CHAR('00'X)//CHAR('00'X)//CHAR('46'X))
		TYPE (GUID), PARAMETER :: CLSID_Chart = &
			GUID(#00020821, #0000, #0000, &
			  CHAR('C0'X)//CHAR('00'X)//CHAR('00'X)//CHAR('00'X)// &
			  CHAR('00'X)//CHAR('00'X)//CHAR('00'X)//CHAR('46'X))
		TYPE (GUID), PARAMETER :: CLSID_Application = &
			GUID(#00024500, #0000, #0000, &
			  CHAR('C0'X)//CHAR('00'X)//CHAR('00'X)//CHAR('00'X)// &
			  CHAR('00'X)//CHAR('00'X)//CHAR('00'X)//CHAR('46'X))

		! Enums		
		! XlAxisGroup 
			INTEGER, PARAMETER ::	xlPrimary = 1	
			INTEGER, PARAMETER ::	xlSecondary = 2	
		! XlAxisType 
			INTEGER, PARAMETER ::	xlCategory = 1	
			INTEGER, PARAMETER ::	xlSeriesAxis = 3	
			INTEGER, PARAMETER ::	xlValue = 2	


		! Module Procedures
		CONTAINS
  			FUNCTION $Application__Evaluate($OBJECT, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application__Evaluate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application__Evaluate
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, -5, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application__Evaluate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application__Evaluate
  			FUNCTION $Application__Run2($OBJECT, Macro, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application__Run2
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Macro	
				!DEC$ ATTRIBUTES REFERENCE	:: Macro
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg1	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg2	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg3	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg3
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg4	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg4
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg5	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg5
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg6	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg6
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg7	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg7
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg8	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg8
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg9	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg9
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg10	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg10
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg11	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg11
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg12	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg12
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg13	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg13
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg14	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg14
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg15	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg15
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg16	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg16
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg17	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg17
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg18	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg18
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg19	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg19
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg20	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg20
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg21	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg21
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg22	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg22
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg23	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg23
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg24	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg24
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg25	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg25
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg26	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg26
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg27	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg27
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg28	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg28
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg29	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg29
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg30	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg30
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application__Run2
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Macro)) CALL AUTOADDARG(invokeargs, '$ARG1', Macro, AUTO_ARG_IN)
				IF (PRESENT(Arg1)) CALL AUTOADDARG(invokeargs, '$ARG2', Arg1, AUTO_ARG_IN)
				IF (PRESENT(Arg2)) CALL AUTOADDARG(invokeargs, '$ARG3', Arg2, AUTO_ARG_IN)
				IF (PRESENT(Arg3)) CALL AUTOADDARG(invokeargs, '$ARG4', Arg3, AUTO_ARG_IN)
				IF (PRESENT(Arg4)) CALL AUTOADDARG(invokeargs, '$ARG5', Arg4, AUTO_ARG_IN)
				IF (PRESENT(Arg5)) CALL AUTOADDARG(invokeargs, '$ARG6', Arg5, AUTO_ARG_IN)
				IF (PRESENT(Arg6)) CALL AUTOADDARG(invokeargs, '$ARG7', Arg6, AUTO_ARG_IN)
				IF (PRESENT(Arg7)) CALL AUTOADDARG(invokeargs, '$ARG8', Arg7, AUTO_ARG_IN)
				IF (PRESENT(Arg8)) CALL AUTOADDARG(invokeargs, '$ARG9', Arg8, AUTO_ARG_IN)
				IF (PRESENT(Arg9)) CALL AUTOADDARG(invokeargs, '$ARG10', Arg9, AUTO_ARG_IN)
				IF (PRESENT(Arg10)) CALL AUTOADDARG(invokeargs, '$ARG11', Arg10, AUTO_ARG_IN)
				IF (PRESENT(Arg11)) CALL AUTOADDARG(invokeargs, '$ARG12', Arg11, AUTO_ARG_IN)
				IF (PRESENT(Arg12)) CALL AUTOADDARG(invokeargs, '$ARG13', Arg12, AUTO_ARG_IN)
				IF (PRESENT(Arg13)) CALL AUTOADDARG(invokeargs, '$ARG14', Arg13, AUTO_ARG_IN)
				IF (PRESENT(Arg14)) CALL AUTOADDARG(invokeargs, '$ARG15', Arg14, AUTO_ARG_IN)
				IF (PRESENT(Arg15)) CALL AUTOADDARG(invokeargs, '$ARG16', Arg15, AUTO_ARG_IN)
				IF (PRESENT(Arg16)) CALL AUTOADDARG(invokeargs, '$ARG17', Arg16, AUTO_ARG_IN)
				IF (PRESENT(Arg17)) CALL AUTOADDARG(invokeargs, '$ARG18', Arg17, AUTO_ARG_IN)
				IF (PRESENT(Arg18)) CALL AUTOADDARG(invokeargs, '$ARG19', Arg18, AUTO_ARG_IN)
				IF (PRESENT(Arg19)) CALL AUTOADDARG(invokeargs, '$ARG20', Arg19, AUTO_ARG_IN)
				IF (PRESENT(Arg20)) CALL AUTOADDARG(invokeargs, '$ARG21', Arg20, AUTO_ARG_IN)
				IF (PRESENT(Arg21)) CALL AUTOADDARG(invokeargs, '$ARG22', Arg21, AUTO_ARG_IN)
				IF (PRESENT(Arg22)) CALL AUTOADDARG(invokeargs, '$ARG23', Arg22, AUTO_ARG_IN)
				IF (PRESENT(Arg23)) CALL AUTOADDARG(invokeargs, '$ARG24', Arg23, AUTO_ARG_IN)
				IF (PRESENT(Arg24)) CALL AUTOADDARG(invokeargs, '$ARG25', Arg24, AUTO_ARG_IN)
				IF (PRESENT(Arg25)) CALL AUTOADDARG(invokeargs, '$ARG26', Arg25, AUTO_ARG_IN)
				IF (PRESENT(Arg26)) CALL AUTOADDARG(invokeargs, '$ARG27', Arg26, AUTO_ARG_IN)
				IF (PRESENT(Arg27)) CALL AUTOADDARG(invokeargs, '$ARG28', Arg27, AUTO_ARG_IN)
				IF (PRESENT(Arg28)) CALL AUTOADDARG(invokeargs, '$ARG29', Arg28, AUTO_ARG_IN)
				IF (PRESENT(Arg29)) CALL AUTOADDARG(invokeargs, '$ARG30', Arg29, AUTO_ARG_IN)
				IF (PRESENT(Arg30)) CALL AUTOADDARG(invokeargs, '$ARG31', Arg30, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 806, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application__Run2 = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application__Run2
  			FUNCTION $Application__WSFunction($OBJECT, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application__WSFunction
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg1	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg2	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg3	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg3
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg4	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg4
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg5	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg5
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg6	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg6
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg7	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg7
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg8	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg8
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg9	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg9
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg10	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg10
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg11	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg11
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg12	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg12
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg13	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg13
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg14	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg14
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg15	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg15
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg16	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg16
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg17	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg17
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg18	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg18
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg19	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg19
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg20	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg20
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg21	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg21
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg22	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg22
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg23	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg23
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg24	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg24
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg25	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg25
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg26	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg26
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg27	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg27
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg28	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg28
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg29	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg29
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg30	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg30
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application__WSFunction
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Arg1)) CALL AUTOADDARG(invokeargs, '$ARG1', Arg1, AUTO_ARG_IN)
				IF (PRESENT(Arg2)) CALL AUTOADDARG(invokeargs, '$ARG2', Arg2, AUTO_ARG_IN)
				IF (PRESENT(Arg3)) CALL AUTOADDARG(invokeargs, '$ARG3', Arg3, AUTO_ARG_IN)
				IF (PRESENT(Arg4)) CALL AUTOADDARG(invokeargs, '$ARG4', Arg4, AUTO_ARG_IN)
				IF (PRESENT(Arg5)) CALL AUTOADDARG(invokeargs, '$ARG5', Arg5, AUTO_ARG_IN)
				IF (PRESENT(Arg6)) CALL AUTOADDARG(invokeargs, '$ARG6', Arg6, AUTO_ARG_IN)
				IF (PRESENT(Arg7)) CALL AUTOADDARG(invokeargs, '$ARG7', Arg7, AUTO_ARG_IN)
				IF (PRESENT(Arg8)) CALL AUTOADDARG(invokeargs, '$ARG8', Arg8, AUTO_ARG_IN)
				IF (PRESENT(Arg9)) CALL AUTOADDARG(invokeargs, '$ARG9', Arg9, AUTO_ARG_IN)
				IF (PRESENT(Arg10)) CALL AUTOADDARG(invokeargs, '$ARG10', Arg10, AUTO_ARG_IN)
				IF (PRESENT(Arg11)) CALL AUTOADDARG(invokeargs, '$ARG11', Arg11, AUTO_ARG_IN)
				IF (PRESENT(Arg12)) CALL AUTOADDARG(invokeargs, '$ARG12', Arg12, AUTO_ARG_IN)
				IF (PRESENT(Arg13)) CALL AUTOADDARG(invokeargs, '$ARG13', Arg13, AUTO_ARG_IN)
				IF (PRESENT(Arg14)) CALL AUTOADDARG(invokeargs, '$ARG14', Arg14, AUTO_ARG_IN)
				IF (PRESENT(Arg15)) CALL AUTOADDARG(invokeargs, '$ARG15', Arg15, AUTO_ARG_IN)
				IF (PRESENT(Arg16)) CALL AUTOADDARG(invokeargs, '$ARG16', Arg16, AUTO_ARG_IN)
				IF (PRESENT(Arg17)) CALL AUTOADDARG(invokeargs, '$ARG17', Arg17, AUTO_ARG_IN)
				IF (PRESENT(Arg18)) CALL AUTOADDARG(invokeargs, '$ARG18', Arg18, AUTO_ARG_IN)
				IF (PRESENT(Arg19)) CALL AUTOADDARG(invokeargs, '$ARG19', Arg19, AUTO_ARG_IN)
				IF (PRESENT(Arg20)) CALL AUTOADDARG(invokeargs, '$ARG20', Arg20, AUTO_ARG_IN)
				IF (PRESENT(Arg21)) CALL AUTOADDARG(invokeargs, '$ARG21', Arg21, AUTO_ARG_IN)
				IF (PRESENT(Arg22)) CALL AUTOADDARG(invokeargs, '$ARG22', Arg22, AUTO_ARG_IN)
				IF (PRESENT(Arg23)) CALL AUTOADDARG(invokeargs, '$ARG23', Arg23, AUTO_ARG_IN)
				IF (PRESENT(Arg24)) CALL AUTOADDARG(invokeargs, '$ARG24', Arg24, AUTO_ARG_IN)
				IF (PRESENT(Arg25)) CALL AUTOADDARG(invokeargs, '$ARG25', Arg25, AUTO_ARG_IN)
				IF (PRESENT(Arg26)) CALL AUTOADDARG(invokeargs, '$ARG26', Arg26, AUTO_ARG_IN)
				IF (PRESENT(Arg27)) CALL AUTOADDARG(invokeargs, '$ARG27', Arg27, AUTO_ARG_IN)
				IF (PRESENT(Arg28)) CALL AUTOADDARG(invokeargs, '$ARG28', Arg28, AUTO_ARG_IN)
				IF (PRESENT(Arg29)) CALL AUTOADDARG(invokeargs, '$ARG29', Arg29, AUTO_ARG_IN)
				IF (PRESENT(Arg30)) CALL AUTOADDARG(invokeargs, '$ARG30', Arg30, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 169, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application__WSFunction = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application__WSFunction
  			SUBROUTINE $Application_ActivateMicrosoftApp($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_ActivateMicrosoftApp
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Index	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Index)
				$$STATUS = AUTOINVOKE($OBJECT, 1095, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_ActivateMicrosoftApp
  			SUBROUTINE $Application_AddChartAutoFormat($OBJECT, Chart, Name, Description, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_AddChartAutoFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Chart	
				!DEC$ ATTRIBUTES REFERENCE	:: Chart
				CHARACTER*(*), INTENT(IN)	:: Name	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Description	
				!DEC$ ATTRIBUTES REFERENCE	:: Description
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Chart, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG2', Name, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(Description)) CALL AUTOADDARG(invokeargs, '$ARG3', Description, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 216, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_AddChartAutoFormat
  			SUBROUTINE $Application_AddCustomList($OBJECT, ListArray, ByRow, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_AddCustomList
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: ListArray	
				!DEC$ ATTRIBUTES REFERENCE	:: ListArray
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ByRow	
				!DEC$ ATTRIBUTES REFERENCE	:: ByRow
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', ListArray, AUTO_ARG_IN)
				IF (PRESENT(ByRow)) CALL AUTOADDARG(invokeargs, '$ARG2', ByRow, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 780, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_AddCustomList
  			SUBROUTINE $Application_Calculate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Calculate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 279, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Calculate
  			REAL*8 FUNCTION $Application_CentimetersToPoints($OBJECT, Centimeters, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_CentimetersToPoints
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: Centimeters	
				!DEC$ ATTRIBUTES REFERENCE	:: Centimeters
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', Centimeters)
				$$STATUS = AUTOINVOKE($OBJECT, 1086, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_CentimetersToPoints = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_CentimetersToPoints
  			LOGICAL*2 FUNCTION $Application_CheckSpelling($OBJECT, Word, CustomDictionary, IgnoreUppercase, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_CheckSpelling
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Word	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Word
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CustomDictionary	
				!DEC$ ATTRIBUTES REFERENCE	:: CustomDictionary
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreUppercase	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreUppercase
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', Word, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(CustomDictionary)) CALL AUTOADDARG(invokeargs, '$ARG2', CustomDictionary, AUTO_ARG_IN)
				IF (PRESENT(IgnoreUppercase)) CALL AUTOADDARG(invokeargs, '$ARG3', IgnoreUppercase, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 505, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_CheckSpelling = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_CheckSpelling
  			FUNCTION $Application_ConvertFormula($OBJECT, Formula, FromReferenceStyle, ToReferenceStyle, ToAbsolute, RelativeTo, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_ConvertFormula
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Formula	
				!DEC$ ATTRIBUTES REFERENCE	:: Formula
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: FromReferenceStyle	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: FromReferenceStyle
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ToReferenceStyle	
				!DEC$ ATTRIBUTES REFERENCE	:: ToReferenceStyle
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ToAbsolute	
				!DEC$ ATTRIBUTES REFERENCE	:: ToAbsolute
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RelativeTo	
				!DEC$ ATTRIBUTES REFERENCE	:: RelativeTo
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_ConvertFormula
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Formula, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG2', FromReferenceStyle)
				IF (PRESENT(ToReferenceStyle)) CALL AUTOADDARG(invokeargs, '$ARG3', ToReferenceStyle, AUTO_ARG_IN)
				IF (PRESENT(ToAbsolute)) CALL AUTOADDARG(invokeargs, '$ARG4', ToAbsolute, AUTO_ARG_IN)
				IF (PRESENT(RelativeTo)) CALL AUTOADDARG(invokeargs, '$ARG5', RelativeTo, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 325, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_ConvertFormula = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_ConvertFormula
  			SUBROUTINE $Application_DDEExecute($OBJECT, Channel, String, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DDEExecute
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Channel	
				!DEC$ ATTRIBUTES REFERENCE	:: Channel
				CHARACTER*(*), INTENT(IN)	:: String	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: String
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Channel)
				CALL AUTOADDARG(invokeargs, '$ARG2', String, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 333, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_DDEExecute
  			INTEGER*4 FUNCTION $Application_DDEInitiate($OBJECT, App, Topic, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DDEInitiate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: App	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: App
				CHARACTER*(*), INTENT(IN)	:: Topic	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Topic
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', App, AUTO_ARG_IN, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG2', Topic, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 334, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_DDEInitiate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_DDEInitiate
  			SUBROUTINE $Application_DDEPoke($OBJECT, Channel, Item, Data, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DDEPoke
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Channel	
				!DEC$ ATTRIBUTES REFERENCE	:: Channel
				TYPE (VARIANT), INTENT(IN)	:: Item	
				!DEC$ ATTRIBUTES REFERENCE	:: Item
				TYPE (VARIANT), INTENT(IN)	:: Data	
				!DEC$ ATTRIBUTES REFERENCE	:: Data
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Channel)
				CALL AUTOADDARG(invokeargs, '$ARG2', Item, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG3', Data, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 335, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_DDEPoke
  			FUNCTION $Application_DDERequest($OBJECT, Channel, Item, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DDERequest
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Channel	
				!DEC$ ATTRIBUTES REFERENCE	:: Channel
				CHARACTER*(*), INTENT(IN)	:: Item	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Item
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_DDERequest
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Channel)
				CALL AUTOADDARG(invokeargs, '$ARG2', Item, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 336, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_DDERequest = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_DDERequest
  			SUBROUTINE $Application_DDETerminate($OBJECT, Channel, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DDETerminate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Channel	
				!DEC$ ATTRIBUTES REFERENCE	:: Channel
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Channel)
				$$STATUS = AUTOINVOKE($OBJECT, 337, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_DDETerminate
  			SUBROUTINE $Application_DeleteChartAutoFormat($OBJECT, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DeleteChartAutoFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Name	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 217, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_DeleteChartAutoFormat
  			SUBROUTINE $Application_DeleteCustomList($OBJECT, ListNum, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DeleteCustomList
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: ListNum	
				!DEC$ ATTRIBUTES REFERENCE	:: ListNum
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', ListNum)
				$$STATUS = AUTOINVOKE($OBJECT, 783, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_DeleteCustomList
  			SUBROUTINE $Application_DoubleClick($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_DoubleClick
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 349, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_DoubleClick
  			SUBROUTINE $Application_Dummy1($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy1
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1767, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy1
  			SUBROUTINE $Application_Dummy10($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy10
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1776, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy10
  			SUBROUTINE $Application_Dummy11($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy11
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1777, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy11
  			SUBROUTINE $Application_Dummy2($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy2
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1768, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy2
  			SUBROUTINE $Application_Dummy3($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy3
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1769, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy3
  			SUBROUTINE $Application_Dummy4($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy4
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1770, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy4
  			SUBROUTINE $Application_Dummy5($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy5
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1771, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy5
  			SUBROUTINE $Application_Dummy6($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy6
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1772, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy6
  			SUBROUTINE $Application_Dummy7($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy7
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1773, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy7
  			SUBROUTINE $Application_Dummy8($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy8
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1774, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy8
  			SUBROUTINE $Application_Dummy9($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Dummy9
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1775, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Dummy9
  			FUNCTION $Application_Evaluate($OBJECT, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Evaluate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_Evaluate
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_Evaluate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_Evaluate
  			FUNCTION $Application_ExecuteExcel4Macro($OBJECT, String, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_ExecuteExcel4Macro
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: String	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: String
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_ExecuteExcel4Macro
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', String, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 350, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_ExecuteExcel4Macro = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_ExecuteExcel4Macro
  			SUBROUTINE $Application_FindFile($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_FindFile
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1068, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_FindFile
  			CHARACTER*(2048) FUNCTION $Application_Get_Default($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Get_Default
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_Default', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 0, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_Get_Default = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_Get_Default
  			!$Application_GetActiveCell return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetActiveCell($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActiveCell
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveCell', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 305, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActiveCell = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActiveCell
  			!$Application_GetActiveChart return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetActiveChart($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActiveChart
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveChart', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 183, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActiveChart = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActiveChart
  			!$Application_GetActiveDialog return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetActiveDialog($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActiveDialog
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveDialog', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 815, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActiveDialog = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActiveDialog
  			!$Application_GetActiveMenuBar return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetActiveMenuBar($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActiveMenuBar
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveMenuBar', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 758, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActiveMenuBar = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActiveMenuBar
  			CHARACTER*(2048) FUNCTION $Application_GetActivePrinter($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActivePrinter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActivePrinter', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 306, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActivePrinter = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActivePrinter
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetActiveSheet($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActiveSheet
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveSheet', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 307, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActiveSheet = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActiveSheet
  			!$Application_GetActiveWindow return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetActiveWindow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActiveWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveWindow', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 759, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActiveWindow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActiveWindow
  			!$Application_GetActiveWorkbook return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetActiveWorkbook($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetActiveWorkbook
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveWorkbook', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 308, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetActiveWorkbook = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetActiveWorkbook
  			!$Application_GetAddIns return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetAddIns($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetAddIns
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AddIns', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 549, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetAddIns = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetAddIns
  			LOGICAL*2 FUNCTION $Application_GetAlertBeforeOverwriting($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetAlertBeforeOverwriting
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AlertBeforeOverwriting', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 930, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetAlertBeforeOverwriting = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetAlertBeforeOverwriting
  			CHARACTER*(2048) FUNCTION $Application_GetAltStartupPath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetAltStartupPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AltStartupPath', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 313, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetAltStartupPath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetAltStartupPath
  			!$Application_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetApplication
  			LOGICAL*2 FUNCTION $Application_GetAskToUpdateLinks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetAskToUpdateLinks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AskToUpdateLinks', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 992, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetAskToUpdateLinks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetAskToUpdateLinks
  			!$Application_GetAssistant return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetAssistant($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetAssistant
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Assistant', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1438, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetAssistant = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetAssistant
  			!$Application_GetAutoCorrect return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetAutoCorrect($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetAutoCorrect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoCorrect', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1145, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetAutoCorrect = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetAutoCorrect
  			INTEGER*4 FUNCTION $Application_GetBuild($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetBuild
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Build', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 314, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetBuild = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetBuild
  			LOGICAL*2 FUNCTION $Application_GetCalculateBeforeSave($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCalculateBeforeSave
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CalculateBeforeSave', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 315, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCalculateBeforeSave = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCalculateBeforeSave
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCalculation($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCalculation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Calculation', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 316, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCalculation = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCalculation
  			FUNCTION $Application_GetCaller($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCaller
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetCaller
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Caller', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 317, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCaller = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCaller
  			LOGICAL*2 FUNCTION $Application_GetCanPlaySounds($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCanPlaySounds
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CanPlaySounds', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 318, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCanPlaySounds = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCanPlaySounds
  			LOGICAL*2 FUNCTION $Application_GetCanRecordSounds($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCanRecordSounds
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CanRecordSounds', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 319, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCanRecordSounds = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCanRecordSounds
  			CHARACTER*(2048) FUNCTION $Application_GetCaption($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCaption
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Caption', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 139, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCaption = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCaption
  			LOGICAL*2 FUNCTION $Application_GetCellDragAndDrop($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCellDragAndDrop
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CellDragAndDrop', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 320, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCellDragAndDrop = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCellDragAndDrop
  			!$Application_GetCells return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCells($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Cells', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 238, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCells = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCells
  			!$Application_GetCharts return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCharts($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCharts
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Charts', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 121, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCharts = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCharts
  			FUNCTION $Application_GetClipboardFormats($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetClipboardFormats
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetClipboardFormats
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ClipboardFormats', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 321, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetClipboardFormats = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetClipboardFormats
  			LOGICAL*2 FUNCTION $Application_GetColorButtons($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetColorButtons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ColorButtons', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 365, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetColorButtons = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetColorButtons
  			!$Application_GetColumns return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetColumns($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetColumns
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Columns', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 241, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetColumns = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetColumns
  			!$Application_GetCommandBars return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCommandBars($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCommandBars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CommandBars', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1439, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCommandBars = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCommandBars
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCommandUnderlines($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCommandUnderlines
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CommandUnderlines', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 323, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCommandUnderlines = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCommandUnderlines
  			LOGICAL*2 FUNCTION $Application_GetConstrainNumeric($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetConstrainNumeric
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ConstrainNumeric', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 324, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetConstrainNumeric = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetConstrainNumeric
  			INTEGER*4 FUNCTION $Application_GetControlCharacters($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetControlCharacters
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ControlCharacters', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 233, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetControlCharacters = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetControlCharacters
  			LOGICAL*2 FUNCTION $Application_GetCopyObjectsWithCells($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCopyObjectsWithCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CopyObjectsWithCells', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 991, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCopyObjectsWithCells = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCopyObjectsWithCells
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCreator
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCursor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCursor
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Cursor', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1161, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCursor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCursor
  			INTEGER*4 FUNCTION $Application_GetCursorMovement($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCursorMovement
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CursorMovement', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 232, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCursorMovement = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCursorMovement
  			FUNCTION $Application_GetCustomListContents($OBJECT, ListNum, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCustomListContents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: ListNum	
				!DEC$ ATTRIBUTES REFERENCE	:: ListNum
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetCustomListContents
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', ListNum)
				$$STATUS = AUTOINVOKE($OBJECT, 786, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCustomListContents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCustomListContents
  			INTEGER*4 FUNCTION $Application_GetCustomListCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCustomListCount
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CustomListCount', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 787, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCustomListCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCustomListCount
  			INTEGER*4 FUNCTION $Application_GetCustomListNum($OBJECT, ListArray, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCustomListNum
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: ListArray	
				!DEC$ ATTRIBUTES REFERENCE	:: ListArray
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', ListArray, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 785, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCustomListNum = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCustomListNum
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetCutCopyMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetCutCopyMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CutCopyMode', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 330, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetCutCopyMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetCutCopyMode
  			INTEGER*4 FUNCTION $Application_GetDataEntryMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDataEntryMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DataEntryMode', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 331, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDataEntryMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDataEntryMode
  			INTEGER*4 FUNCTION $Application_GetDDEAppReturnCode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDDEAppReturnCode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DDEAppReturnCode', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 332, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDDEAppReturnCode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDDEAppReturnCode
  			CHARACTER*(2048) FUNCTION $Application_GetDefaultFilePath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDefaultFilePath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DefaultFilePath', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1038, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDefaultFilePath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDefaultFilePath
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetDefaultSaveFormat($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDefaultSaveFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DefaultSaveFormat', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1209, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDefaultSaveFormat = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDefaultSaveFormat
  			INTEGER*4 FUNCTION $Application_GetDefaultSheetDirection($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDefaultSheetDirection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DefaultSheetDirection', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 229, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDefaultSheetDirection = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDefaultSheetDirection
  			!$Application_GetDialogs return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetDialogs($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDialogs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Dialogs', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 761, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDialogs = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDialogs
  			!$Application_GetDialogSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetDialogSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDialogSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DialogSheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 764, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDialogSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDialogSheets
  			LOGICAL*2 FUNCTION $Application_GetDisplayAlerts($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayAlerts
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayAlerts', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 343, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayAlerts = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayAlerts
  			LOGICAL*2 FUNCTION $Application_GetDisplayClipboardWindow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayClipboardWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayClipboardWindow', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 322, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayClipboardWindow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayClipboardWindow
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetDisplayCommentIndicator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayCommentIndicator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayCommentIndicator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1196, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayCommentIndicator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayCommentIndicator
  			LOGICAL*2 FUNCTION $Application_GetDisplayExcel4Menus($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayExcel4Menus
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayExcel4Menus', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 927, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayExcel4Menus = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayExcel4Menus
  			LOGICAL*2 FUNCTION $Application_GetDisplayFormulaBar($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayFormulaBar
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayFormulaBar', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 344, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayFormulaBar = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayFormulaBar
  			LOGICAL*2 FUNCTION $Application_GetDisplayFullScreen($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayFullScreen
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayFullScreen', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1061, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayFullScreen = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayFullScreen
  			LOGICAL*2 FUNCTION $Application_GetDisplayInfoWindow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayInfoWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayInfoWindow', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1213, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayInfoWindow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayInfoWindow
  			LOGICAL*2 FUNCTION $Application_GetDisplayNoteIndicator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayNoteIndicator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayNoteIndicator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 345, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayNoteIndicator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayNoteIndicator
  			LOGICAL*2 FUNCTION $Application_GetDisplayRecentFiles($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayRecentFiles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayRecentFiles', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 926, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayRecentFiles = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayRecentFiles
  			LOGICAL*2 FUNCTION $Application_GetDisplayScrollBars($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayScrollBars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayScrollBars', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 346, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayScrollBars = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayScrollBars
  			LOGICAL*2 FUNCTION $Application_GetDisplayStatusBar($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetDisplayStatusBar
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayStatusBar', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 347, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetDisplayStatusBar = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetDisplayStatusBar
  			LOGICAL*2 FUNCTION $Application_GetEditDirectlyInCell($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetEditDirectlyInCell
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EditDirectlyInCell', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 929, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetEditDirectlyInCell = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetEditDirectlyInCell
  			LOGICAL*2 FUNCTION $Application_GetEnableAnimations($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetEnableAnimations
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableAnimations', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1180, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetEnableAnimations = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetEnableAnimations
  			LOGICAL*2 FUNCTION $Application_GetEnableAutoComplete($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetEnableAutoComplete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableAutoComplete', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1179, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetEnableAutoComplete = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetEnableAutoComplete
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetEnableCancelKey($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetEnableCancelKey
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableCancelKey', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1096, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetEnableCancelKey = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetEnableCancelKey
  			LOGICAL*2 FUNCTION $Application_GetEnableEvents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetEnableEvents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableEvents', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1212, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetEnableEvents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetEnableEvents
  			LOGICAL*2 FUNCTION $Application_GetEnableSound($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetEnableSound
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSound', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1197, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetEnableSound = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetEnableSound
  			LOGICAL*2 FUNCTION $Application_GetEnableTipWizard($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetEnableTipWizard
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableTipWizard', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1064, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetEnableTipWizard = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetEnableTipWizard
  			!$Application_GetExcel4IntlMacroSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetExcel4IntlMacroSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetExcel4IntlMacroSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Excel4IntlMacroSheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 581, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetExcel4IntlMacroSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetExcel4IntlMacroSheets
  			!$Application_GetExcel4MacroSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetExcel4MacroSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetExcel4MacroSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Excel4MacroSheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 579, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetExcel4MacroSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetExcel4MacroSheets
  			FUNCTION $Application_GetFileConverters($OBJECT, Index1, Index2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetFileConverters
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index1	
				!DEC$ ATTRIBUTES REFERENCE	:: Index1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index2	
				!DEC$ ATTRIBUTES REFERENCE	:: Index2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetFileConverters
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileConverters', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index1)) CALL AUTOADDARG(invokeargs, '$ARG1', Index1, AUTO_ARG_IN)
				IF (PRESENT(Index2)) CALL AUTOADDARG(invokeargs, '$ARG2', Index2, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 931, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetFileConverters = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetFileConverters
  			!$Application_GetFileFind return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetFileFind($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetFileFind
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileFind', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1201, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetFileFind = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetFileFind
  			!$Application_GetFileSearch return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetFileSearch($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetFileSearch
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileSearch', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1200, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetFileSearch = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetFileSearch
  			LOGICAL*2 FUNCTION $Application_GetFixedDecimal($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetFixedDecimal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FixedDecimal', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 351, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetFixedDecimal = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetFixedDecimal
  			INTEGER*4 FUNCTION $Application_GetFixedDecimalPlaces($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetFixedDecimalPlaces
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FixedDecimalPlaces', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 352, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetFixedDecimalPlaces = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetFixedDecimalPlaces
  			REAL*8 FUNCTION $Application_GetHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Height', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 123, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetHeight
  			LOGICAL*2 FUNCTION $Application_GetIgnoreRemoteRequests($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetIgnoreRemoteRequests
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'IgnoreRemoteRequests', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 356, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetIgnoreRemoteRequests = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetIgnoreRemoteRequests
  			LOGICAL*2 FUNCTION $Application_GetInteractive($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetInteractive
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Interactive', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 361, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetInteractive = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetInteractive
  			FUNCTION $Application_GetInternational($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetInternational
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetInternational
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'International', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 362, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetInternational = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetInternational
  			LOGICAL*2 FUNCTION $Application_GetIteration($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetIteration
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Iteration', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 363, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetIteration = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetIteration
  			LOGICAL*2 FUNCTION $Application_GetLargeButtons($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetLargeButtons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'LargeButtons', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 364, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetLargeButtons = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetLargeButtons
  			REAL*8 FUNCTION $Application_GetLeft($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetLeft
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Left', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 127, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetLeft = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetLeft
  			CHARACTER*(2048) FUNCTION $Application_GetLibraryPath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetLibraryPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'LibraryPath', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 366, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetLibraryPath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetLibraryPath
  			FUNCTION $Application_GetMailSession($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMailSession
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetMailSession
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MailSession', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 942, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMailSession = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMailSession
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetMailSystem($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMailSystem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MailSystem', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 971, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMailSystem = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMailSystem
  			LOGICAL*2 FUNCTION $Application_GetMathCoprocessorAvailable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMathCoprocessorAvailable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MathCoprocessorAvailable', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 367, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMathCoprocessorAvailable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMathCoprocessorAvailable
  			REAL*8 FUNCTION $Application_GetMaxChange($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMaxChange
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MaxChange', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 368, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMaxChange = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMaxChange
  			INTEGER*4 FUNCTION $Application_GetMaxIterations($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMaxIterations
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MaxIterations', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 369, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMaxIterations = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMaxIterations
  			INTEGER*4 FUNCTION $Application_GetMemoryFree($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMemoryFree
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MemoryFree', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 370, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMemoryFree = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMemoryFree
  			INTEGER*4 FUNCTION $Application_GetMemoryTotal($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMemoryTotal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MemoryTotal', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 371, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMemoryTotal = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMemoryTotal
  			INTEGER*4 FUNCTION $Application_GetMemoryUsed($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMemoryUsed
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MemoryUsed', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 372, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMemoryUsed = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMemoryUsed
  			!$Application_GetMenuBars return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetMenuBars($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMenuBars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MenuBars', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 589, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMenuBars = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMenuBars
  			!$Application_GetModules return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetModules($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetModules
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Modules', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 582, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetModules = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetModules
  			LOGICAL*2 FUNCTION $Application_GetMouseAvailable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMouseAvailable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MouseAvailable', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 373, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMouseAvailable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMouseAvailable
  			LOGICAL*2 FUNCTION $Application_GetMoveAfterReturn($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMoveAfterReturn
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MoveAfterReturn', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 374, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMoveAfterReturn = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMoveAfterReturn
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetMoveAfterReturnDirection($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetMoveAfterReturnDirection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MoveAfterReturnDirection', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1144, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetMoveAfterReturnDirection = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetMoveAfterReturnDirection
  			CHARACTER*(2048) FUNCTION $Application_GetName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetName
  			!$Application_GetNames return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetNames($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Names', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 442, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetNames = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetNames
  			CHARACTER*(2048) FUNCTION $Application_GetNetworkTemplatesPath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetNetworkTemplatesPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'NetworkTemplatesPath', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 388, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetNetworkTemplatesPath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetNetworkTemplatesPath
  			!$Application_GetODBCErrors return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetODBCErrors($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetODBCErrors
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ODBCErrors', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1203, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetODBCErrors = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetODBCErrors
  			INTEGER*4 FUNCTION $Application_GetODBCTimeout($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetODBCTimeout
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ODBCTimeout', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1204, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetODBCTimeout = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetODBCTimeout
  			CHARACTER*(2048) FUNCTION $Application_GetOnCalculate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOnCalculate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnCalculate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 625, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOnCalculate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOnCalculate
  			CHARACTER*(2048) FUNCTION $Application_GetOnData($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOnData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnData', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 629, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOnData = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOnData
  			CHARACTER*(2048) FUNCTION $Application_GetOnDoubleClick($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOnDoubleClick
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnDoubleClick', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 628, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOnDoubleClick = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOnDoubleClick
  			CHARACTER*(2048) FUNCTION $Application_GetOnEntry($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOnEntry
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnEntry', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 627, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOnEntry = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOnEntry
  			CHARACTER*(2048) FUNCTION $Application_GetOnSheetActivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOnSheetActivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOnSheetActivate
  			CHARACTER*(2048) FUNCTION $Application_GetOnSheetDeactivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOnSheetDeactivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOnSheetDeactivate
  			CHARACTER*(2048) FUNCTION $Application_GetOnWindow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOnWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnWindow', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 623, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOnWindow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOnWindow
  			FUNCTION $Application_GetOpenFilename($OBJECT, FileFilter, FilterIndex, Title, ButtonText, MultiSelect, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOpenFilename
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FileFilter	
				!DEC$ ATTRIBUTES REFERENCE	:: FileFilter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FilterIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: FilterIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Title	
				!DEC$ ATTRIBUTES REFERENCE	:: Title
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ButtonText	
				!DEC$ ATTRIBUTES REFERENCE	:: ButtonText
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MultiSelect	
				!DEC$ ATTRIBUTES REFERENCE	:: MultiSelect
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetOpenFilename
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(FileFilter)) CALL AUTOADDARG(invokeargs, '$ARG1', FileFilter, AUTO_ARG_IN)
				IF (PRESENT(FilterIndex)) CALL AUTOADDARG(invokeargs, '$ARG2', FilterIndex, AUTO_ARG_IN)
				IF (PRESENT(Title)) CALL AUTOADDARG(invokeargs, '$ARG3', Title, AUTO_ARG_IN)
				IF (PRESENT(ButtonText)) CALL AUTOADDARG(invokeargs, '$ARG4', ButtonText, AUTO_ARG_IN)
				IF (PRESENT(MultiSelect)) CALL AUTOADDARG(invokeargs, '$ARG5', MultiSelect, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1075, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOpenFilename = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOpenFilename
  			CHARACTER*(2048) FUNCTION $Application_GetOperatingSystem($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOperatingSystem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OperatingSystem', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 375, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOperatingSystem = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOperatingSystem
  			CHARACTER*(2048) FUNCTION $Application_GetOrganizationName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetOrganizationName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OrganizationName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 376, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetOrganizationName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetOrganizationName
  			!$Application_GetParent return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetParent
  			CHARACTER*(2048) FUNCTION $Application_GetPath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Path', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 291, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetPath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetPath
  			CHARACTER*(2048) FUNCTION $Application_GetPathSeparator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetPathSeparator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PathSeparator', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 377, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetPathSeparator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetPathSeparator
  			LOGICAL*2 FUNCTION $Application_GetPivotTableSelection($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetPivotTableSelection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PivotTableSelection', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1205, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetPivotTableSelection = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetPivotTableSelection
  			FUNCTION $Application_GetPreviousSelections($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetPreviousSelections
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetPreviousSelections
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PreviousSelections', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 378, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetPreviousSelections = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetPreviousSelections
  			LOGICAL*2 FUNCTION $Application_GetPromptForSummaryInfo($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetPromptForSummaryInfo
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PromptForSummaryInfo', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1062, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetPromptForSummaryInfo = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetPromptForSummaryInfo
  			!$Application_GetRange return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetRange($OBJECT, Cell1, Cell2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetRange
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Cell1	
				!DEC$ ATTRIBUTES REFERENCE	:: Cell1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Cell2	
				!DEC$ ATTRIBUTES REFERENCE	:: Cell2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Range', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Cell1, AUTO_ARG_IN)
				IF (PRESENT(Cell2)) CALL AUTOADDARG(invokeargs, '$ARG2', Cell2, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 197, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetRange = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetRange
  			!$Application_GetRecentFiles return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetRecentFiles($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetRecentFiles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RecentFiles', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1202, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetRecentFiles = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetRecentFiles
  			LOGICAL*2 FUNCTION $Application_GetRecordRelative($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetRecordRelative
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RecordRelative', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 379, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetRecordRelative = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetRecordRelative
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetReferenceStyle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetReferenceStyle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ReferenceStyle', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 380, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetReferenceStyle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetReferenceStyle
  			FUNCTION $Application_GetRegisteredFunctions($OBJECT, Index1, Index2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetRegisteredFunctions
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index1	
				!DEC$ ATTRIBUTES REFERENCE	:: Index1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index2	
				!DEC$ ATTRIBUTES REFERENCE	:: Index2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetRegisteredFunctions
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RegisteredFunctions', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index1)) CALL AUTOADDARG(invokeargs, '$ARG1', Index1, AUTO_ARG_IN)
				IF (PRESENT(Index2)) CALL AUTOADDARG(invokeargs, '$ARG2', Index2, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 775, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetRegisteredFunctions = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetRegisteredFunctions
  			LOGICAL*2 FUNCTION $Application_GetRollZoom($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetRollZoom
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RollZoom', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1206, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetRollZoom = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetRollZoom
  			!$Application_GetRows return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetRows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetRows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rows', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 258, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetRows = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetRows
  			FUNCTION $Application_GetSaveAsFilename($OBJECT, InitialFilename, FileFilter, FilterIndex, Title, ButtonText, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetSaveAsFilename
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: InitialFilename	
				!DEC$ ATTRIBUTES REFERENCE	:: InitialFilename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FileFilter	
				!DEC$ ATTRIBUTES REFERENCE	:: FileFilter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FilterIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: FilterIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Title	
				!DEC$ ATTRIBUTES REFERENCE	:: Title
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ButtonText	
				!DEC$ ATTRIBUTES REFERENCE	:: ButtonText
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetSaveAsFilename
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(InitialFilename)) CALL AUTOADDARG(invokeargs, '$ARG1', InitialFilename, AUTO_ARG_IN)
				IF (PRESENT(FileFilter)) CALL AUTOADDARG(invokeargs, '$ARG2', FileFilter, AUTO_ARG_IN)
				IF (PRESENT(FilterIndex)) CALL AUTOADDARG(invokeargs, '$ARG3', FilterIndex, AUTO_ARG_IN)
				IF (PRESENT(Title)) CALL AUTOADDARG(invokeargs, '$ARG4', Title, AUTO_ARG_IN)
				IF (PRESENT(ButtonText)) CALL AUTOADDARG(invokeargs, '$ARG5', ButtonText, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1076, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetSaveAsFilename = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetSaveAsFilename
  			LOGICAL*2 FUNCTION $Application_GetScreenUpdating($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetScreenUpdating
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ScreenUpdating', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 382, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetScreenUpdating = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetScreenUpdating
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetSelection($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetSelection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Selection', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 147, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetSelection = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetSelection
  			!$Application_GetSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Sheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 485, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetSheets
  			INTEGER*4 FUNCTION $Application_GetSheetsInNewWorkbook($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetSheetsInNewWorkbook
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SheetsInNewWorkbook', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 993, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetSheetsInNewWorkbook = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetSheetsInNewWorkbook
  			!$Application_GetShortcutMenus return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetShortcutMenus($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetShortcutMenus
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShortcutMenus', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Index)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 776, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetShortcutMenus = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetShortcutMenus
  			LOGICAL*2 FUNCTION $Application_GetShowChartTipNames($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetShowChartTipNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowChartTipNames', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1207, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetShowChartTipNames = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetShowChartTipNames
  			LOGICAL*2 FUNCTION $Application_GetShowChartTipValues($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetShowChartTipValues
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowChartTipValues', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1208, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetShowChartTipValues = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetShowChartTipValues
  			LOGICAL*2 FUNCTION $Application_GetShowToolTips($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetShowToolTips
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowToolTips', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 387, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetShowToolTips = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetShowToolTips
  			CHARACTER*(2048) FUNCTION $Application_GetStandardFont($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetStandardFont
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StandardFont', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 924, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetStandardFont = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetStandardFont
  			REAL*8 FUNCTION $Application_GetStandardFontSize($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetStandardFontSize
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StandardFontSize', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 925, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetStandardFontSize = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetStandardFontSize
  			CHARACTER*(2048) FUNCTION $Application_GetStartupPath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetStartupPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StartupPath', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 385, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetStartupPath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetStartupPath
  			FUNCTION $Application_GetStatusBar($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetStatusBar
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_GetStatusBar
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StatusBar', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 386, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetStatusBar = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetStatusBar
  			CHARACTER*(2048) FUNCTION $Application_GetTemplatesPath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetTemplatesPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TemplatesPath', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 381, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetTemplatesPath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetTemplatesPath
  			!$Application_GetThisWorkbook return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetThisWorkbook($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetThisWorkbook
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ThisWorkbook', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 778, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetThisWorkbook = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetThisWorkbook
  			!$Application_GetToolbars return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetToolbars($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetToolbars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Toolbars', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 552, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetToolbars = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetToolbars
  			REAL*8 FUNCTION $Application_GetTop($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetTop
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Top', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 126, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetTop = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetTop
  			CHARACTER*(2048) FUNCTION $Application_GetTransitionMenuKey($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetTransitionMenuKey
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionMenuKey', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 310, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetTransitionMenuKey = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetTransitionMenuKey
  			INTEGER*4 FUNCTION $Application_GetTransitionMenuKeyAction($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetTransitionMenuKeyAction
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionMenuKeyAction', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 311, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetTransitionMenuKeyAction = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetTransitionMenuKeyAction
  			LOGICAL*2 FUNCTION $Application_GetTransitionNavigKeys($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetTransitionNavigKeys
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionNavigKeys', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 312, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetTransitionNavigKeys = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetTransitionNavigKeys
  			INTEGER*4 FUNCTION $Application_GetUILanguage($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetUILanguage
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UILanguage', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 2, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetUILanguage = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetUILanguage
  			REAL*8 FUNCTION $Application_GetUsableHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetUsableHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UsableHeight', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 389, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetUsableHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetUsableHeight
  			REAL*8 FUNCTION $Application_GetUsableWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetUsableWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UsableWidth', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 390, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetUsableWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetUsableWidth
  			LOGICAL*2 FUNCTION $Application_GetUserControl($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetUserControl
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UserControl', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1210, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetUserControl = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetUserControl
  			CHARACTER*(2048) FUNCTION $Application_GetUserName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetUserName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UserName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 391, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetUserName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetUserName
  			CHARACTER*(2048) FUNCTION $Application_GetValue($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetValue
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Value', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 6, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetValue = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetValue
  			!$Application_GetVBE return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetVBE($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetVBE
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'VBE', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1211, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetVBE = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetVBE
  			CHARACTER*(2048) FUNCTION $Application_GetVersion($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetVersion
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Version', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 392, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetVersion = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetVersion
  			LOGICAL*2 FUNCTION $Application_GetVisible($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetVisible = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetVisible
  			REAL*8 FUNCTION $Application_GetWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Width', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 122, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetWidth
  			!$Application_GetWindows return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetWindows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetWindows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Windows', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 430, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetWindows = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetWindows
  			LOGICAL*2 FUNCTION $Application_GetWindowsForPens($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetWindowsForPens
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WindowsForPens', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 395, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetWindowsForPens = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetWindowsForPens
  			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetWindowState($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetWindowState
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WindowState', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 396, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetWindowState = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetWindowState
  			!$Application_GetWorkbooks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetWorkbooks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetWorkbooks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Workbooks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 572, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetWorkbooks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetWorkbooks
  			!$Application_GetWorksheetFunction return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetWorksheetFunction($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetWorksheetFunction
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WorksheetFunction', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1440, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetWorksheetFunction = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetWorksheetFunction
  			!$Application_GetWorksheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_GetWorksheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_GetWorksheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Worksheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 494, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_GetWorksheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_GetWorksheets
  			SUBROUTINE $Application_Goto($OBJECT, Reference, Scroll, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Goto
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Reference	
				!DEC$ ATTRIBUTES REFERENCE	:: Reference
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Scroll	
				!DEC$ ATTRIBUTES REFERENCE	:: Scroll
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Reference)) CALL AUTOADDARG(invokeargs, '$ARG1', Reference, AUTO_ARG_IN)
				IF (PRESENT(Scroll)) CALL AUTOADDARG(invokeargs, '$ARG2', Scroll, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 475, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Goto
  			SUBROUTINE $Application_Help($OBJECT, HelpFile, HelpContextID, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Help
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HelpFile	
				!DEC$ ATTRIBUTES REFERENCE	:: HelpFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HelpContextID	
				!DEC$ ATTRIBUTES REFERENCE	:: HelpContextID
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(HelpFile)) CALL AUTOADDARG(invokeargs, '$ARG1', HelpFile, AUTO_ARG_IN)
				IF (PRESENT(HelpContextID)) CALL AUTOADDARG(invokeargs, '$ARG2', HelpContextID, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 354, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Help
  			REAL*8 FUNCTION $Application_InchesToPoints($OBJECT, Inches, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_InchesToPoints
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: Inches	
				!DEC$ ATTRIBUTES REFERENCE	:: Inches
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', Inches)
				$$STATUS = AUTOINVOKE($OBJECT, 1087, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_InchesToPoints = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_InchesToPoints
  			FUNCTION $Application_InputBox($OBJECT, Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_InputBox
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Prompt	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Prompt
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Title	
				!DEC$ ATTRIBUTES REFERENCE	:: Title
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Default	
				!DEC$ ATTRIBUTES REFERENCE	:: Default
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Left	
				!DEC$ ATTRIBUTES REFERENCE	:: Left
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Top	
				!DEC$ ATTRIBUTES REFERENCE	:: Top
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HelpFile	
				!DEC$ ATTRIBUTES REFERENCE	:: HelpFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HelpContextID	
				!DEC$ ATTRIBUTES REFERENCE	:: HelpContextID
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_InputBox
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Prompt, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(Title)) CALL AUTOADDARG(invokeargs, '$ARG2', Title, AUTO_ARG_IN)
				IF (PRESENT(Default)) CALL AUTOADDARG(invokeargs, '$ARG3', Default, AUTO_ARG_IN)
				IF (PRESENT(Left)) CALL AUTOADDARG(invokeargs, '$ARG4', Left, AUTO_ARG_IN)
				IF (PRESENT(Top)) CALL AUTOADDARG(invokeargs, '$ARG5', Top, AUTO_ARG_IN)
				IF (PRESENT(HelpFile)) CALL AUTOADDARG(invokeargs, '$ARG6', HelpFile, AUTO_ARG_IN)
				IF (PRESENT(HelpContextID)) CALL AUTOADDARG(invokeargs, '$ARG7', HelpContextID, AUTO_ARG_IN)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG8', Type, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 357, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_InputBox = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_InputBox
  			!$Application_Intersect return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_Intersect($OBJECT, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Intersect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Arg1	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: Arg1
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Arg2	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: Arg2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg3	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg3
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg4	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg4
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg5	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg5
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg6	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg6
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg7	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg7
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg8	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg8
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg9	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg9
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg10	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg10
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg11	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg11
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg12	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg12
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg13	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg13
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg14	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg14
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg15	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg15
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg16	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg16
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg17	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg17
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg18	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg18
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg19	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg19
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg20	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg20
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg21	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg21
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg22	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg22
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg23	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg23
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg24	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg24
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg25	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg25
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg26	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg26
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg27	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg27
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg28	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg28
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg29	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg29
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg30	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg30
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Arg1, AUTO_ARG_IN, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG2', Arg2, AUTO_ARG_IN, VT_DISPATCH)
				IF (PRESENT(Arg3)) CALL AUTOADDARG(invokeargs, '$ARG3', Arg3, AUTO_ARG_IN)
				IF (PRESENT(Arg4)) CALL AUTOADDARG(invokeargs, '$ARG4', Arg4, AUTO_ARG_IN)
				IF (PRESENT(Arg5)) CALL AUTOADDARG(invokeargs, '$ARG5', Arg5, AUTO_ARG_IN)
				IF (PRESENT(Arg6)) CALL AUTOADDARG(invokeargs, '$ARG6', Arg6, AUTO_ARG_IN)
				IF (PRESENT(Arg7)) CALL AUTOADDARG(invokeargs, '$ARG7', Arg7, AUTO_ARG_IN)
				IF (PRESENT(Arg8)) CALL AUTOADDARG(invokeargs, '$ARG8', Arg8, AUTO_ARG_IN)
				IF (PRESENT(Arg9)) CALL AUTOADDARG(invokeargs, '$ARG9', Arg9, AUTO_ARG_IN)
				IF (PRESENT(Arg10)) CALL AUTOADDARG(invokeargs, '$ARG10', Arg10, AUTO_ARG_IN)
				IF (PRESENT(Arg11)) CALL AUTOADDARG(invokeargs, '$ARG11', Arg11, AUTO_ARG_IN)
				IF (PRESENT(Arg12)) CALL AUTOADDARG(invokeargs, '$ARG12', Arg12, AUTO_ARG_IN)
				IF (PRESENT(Arg13)) CALL AUTOADDARG(invokeargs, '$ARG13', Arg13, AUTO_ARG_IN)
				IF (PRESENT(Arg14)) CALL AUTOADDARG(invokeargs, '$ARG14', Arg14, AUTO_ARG_IN)
				IF (PRESENT(Arg15)) CALL AUTOADDARG(invokeargs, '$ARG15', Arg15, AUTO_ARG_IN)
				IF (PRESENT(Arg16)) CALL AUTOADDARG(invokeargs, '$ARG16', Arg16, AUTO_ARG_IN)
				IF (PRESENT(Arg17)) CALL AUTOADDARG(invokeargs, '$ARG17', Arg17, AUTO_ARG_IN)
				IF (PRESENT(Arg18)) CALL AUTOADDARG(invokeargs, '$ARG18', Arg18, AUTO_ARG_IN)
				IF (PRESENT(Arg19)) CALL AUTOADDARG(invokeargs, '$ARG19', Arg19, AUTO_ARG_IN)
				IF (PRESENT(Arg20)) CALL AUTOADDARG(invokeargs, '$ARG20', Arg20, AUTO_ARG_IN)
				IF (PRESENT(Arg21)) CALL AUTOADDARG(invokeargs, '$ARG21', Arg21, AUTO_ARG_IN)
				IF (PRESENT(Arg22)) CALL AUTOADDARG(invokeargs, '$ARG22', Arg22, AUTO_ARG_IN)
				IF (PRESENT(Arg23)) CALL AUTOADDARG(invokeargs, '$ARG23', Arg23, AUTO_ARG_IN)
				IF (PRESENT(Arg24)) CALL AUTOADDARG(invokeargs, '$ARG24', Arg24, AUTO_ARG_IN)
				IF (PRESENT(Arg25)) CALL AUTOADDARG(invokeargs, '$ARG25', Arg25, AUTO_ARG_IN)
				IF (PRESENT(Arg26)) CALL AUTOADDARG(invokeargs, '$ARG26', Arg26, AUTO_ARG_IN)
				IF (PRESENT(Arg27)) CALL AUTOADDARG(invokeargs, '$ARG27', Arg27, AUTO_ARG_IN)
				IF (PRESENT(Arg28)) CALL AUTOADDARG(invokeargs, '$ARG28', Arg28, AUTO_ARG_IN)
				IF (PRESENT(Arg29)) CALL AUTOADDARG(invokeargs, '$ARG29', Arg29, AUTO_ARG_IN)
				IF (PRESENT(Arg30)) CALL AUTOADDARG(invokeargs, '$ARG30', Arg30, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 766, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_Intersect = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_Intersect
  			SUBROUTINE $Application_MacroOptions($OBJECT, Macro, Description, HasMenu, MenuText, HasShortcutKey, ShortcutKey, Category, StatusBar, HelpContextID, HelpFile, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_MacroOptions
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Macro	
				!DEC$ ATTRIBUTES REFERENCE	:: Macro
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Description	
				!DEC$ ATTRIBUTES REFERENCE	:: Description
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HasMenu	
				!DEC$ ATTRIBUTES REFERENCE	:: HasMenu
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MenuText	
				!DEC$ ATTRIBUTES REFERENCE	:: MenuText
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HasShortcutKey	
				!DEC$ ATTRIBUTES REFERENCE	:: HasShortcutKey
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ShortcutKey	
				!DEC$ ATTRIBUTES REFERENCE	:: ShortcutKey
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Category	
				!DEC$ ATTRIBUTES REFERENCE	:: Category
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: StatusBar	
				!DEC$ ATTRIBUTES REFERENCE	:: StatusBar
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HelpContextID	
				!DEC$ ATTRIBUTES REFERENCE	:: HelpContextID
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HelpFile	
				!DEC$ ATTRIBUTES REFERENCE	:: HelpFile
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Macro)) CALL AUTOADDARG(invokeargs, '$ARG1', Macro, AUTO_ARG_IN)
				IF (PRESENT(Description)) CALL AUTOADDARG(invokeargs, '$ARG2', Description, AUTO_ARG_IN)
				IF (PRESENT(HasMenu)) CALL AUTOADDARG(invokeargs, '$ARG3', HasMenu, AUTO_ARG_IN)
				IF (PRESENT(MenuText)) CALL AUTOADDARG(invokeargs, '$ARG4', MenuText, AUTO_ARG_IN)
				IF (PRESENT(HasShortcutKey)) CALL AUTOADDARG(invokeargs, '$ARG5', HasShortcutKey, AUTO_ARG_IN)
				IF (PRESENT(ShortcutKey)) CALL AUTOADDARG(invokeargs, '$ARG6', ShortcutKey, AUTO_ARG_IN)
				IF (PRESENT(Category)) CALL AUTOADDARG(invokeargs, '$ARG7', Category, AUTO_ARG_IN)
				IF (PRESENT(StatusBar)) CALL AUTOADDARG(invokeargs, '$ARG8', StatusBar, AUTO_ARG_IN)
				IF (PRESENT(HelpContextID)) CALL AUTOADDARG(invokeargs, '$ARG9', HelpContextID, AUTO_ARG_IN)
				IF (PRESENT(HelpFile)) CALL AUTOADDARG(invokeargs, '$ARG10', HelpFile, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1135, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_MacroOptions
  			SUBROUTINE $Application_MailLogoff($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_MailLogoff
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 945, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_MailLogoff
  			SUBROUTINE $Application_MailLogon($OBJECT, Name, Password, DownloadNewMail, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_MailLogon
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: DownloadNewMail	
				!DEC$ ATTRIBUTES REFERENCE	:: DownloadNewMail
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Name)) CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG2', Password, AUTO_ARG_IN)
				IF (PRESENT(DownloadNewMail)) CALL AUTOADDARG(invokeargs, '$ARG3', DownloadNewMail, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 943, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_MailLogon
  			!$Application_NextLetter return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_NextLetter($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_NextLetter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOINVOKE($OBJECT, 972, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_NextLetter = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_NextLetter
  			SUBROUTINE $Application_OnKey($OBJECT, Key, Procedure, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_OnKey
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Key	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Key
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Procedure	
				!DEC$ ATTRIBUTES REFERENCE	:: Procedure
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Key, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(Procedure)) CALL AUTOADDARG(invokeargs, '$ARG2', Procedure, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 626, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_OnKey
  			SUBROUTINE $Application_OnRepeat($OBJECT, Text, Procedure, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_OnRepeat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Text	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Text
				CHARACTER*(*), INTENT(IN)	:: Procedure	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Procedure
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Text, AUTO_ARG_IN, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG2', Procedure, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 769, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_OnRepeat
  			SUBROUTINE $Application_OnTime($OBJECT, EarliestTime, Procedure, LatestTime, Schedule, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_OnTime
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: EarliestTime	
				!DEC$ ATTRIBUTES REFERENCE	:: EarliestTime
				CHARACTER*(*), INTENT(IN)	:: Procedure	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Procedure
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LatestTime	
				!DEC$ ATTRIBUTES REFERENCE	:: LatestTime
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Schedule	
				!DEC$ ATTRIBUTES REFERENCE	:: Schedule
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', EarliestTime, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG2', Procedure, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(LatestTime)) CALL AUTOADDARG(invokeargs, '$ARG3', LatestTime, AUTO_ARG_IN)
				IF (PRESENT(Schedule)) CALL AUTOADDARG(invokeargs, '$ARG4', Schedule, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 624, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_OnTime
  			SUBROUTINE $Application_OnUndo($OBJECT, Text, Procedure, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_OnUndo
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Text	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Text
				CHARACTER*(*), INTENT(IN)	:: Procedure	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Procedure
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Text, AUTO_ARG_IN, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG2', Procedure, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 770, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_OnUndo
  			SUBROUTINE $Application_Quit($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Quit
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 302, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Quit
  			SUBROUTINE $Application_RecordMacro($OBJECT, BasicCode, XlmCode, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_RecordMacro
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: BasicCode	
				!DEC$ ATTRIBUTES REFERENCE	:: BasicCode
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: XlmCode	
				!DEC$ ATTRIBUTES REFERENCE	:: XlmCode
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(BasicCode)) CALL AUTOADDARG(invokeargs, '$ARG1', BasicCode, AUTO_ARG_IN)
				IF (PRESENT(XlmCode)) CALL AUTOADDARG(invokeargs, '$ARG2', XlmCode, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 773, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_RecordMacro
  			LOGICAL*2 FUNCTION $Application_RegisterXLL($OBJECT, Filename, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_RegisterXLL
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 30, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_RegisterXLL = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_RegisterXLL
  			SUBROUTINE $Application_Repeat($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Repeat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 301, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Repeat
  			SUBROUTINE $Application_ResetTipWizard($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_ResetTipWizard
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 928, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_ResetTipWizard
  			FUNCTION $Application_Run($OBJECT, Macro, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Run
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Macro	
				!DEC$ ATTRIBUTES REFERENCE	:: Macro
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg1	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg2	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg3	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg3
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg4	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg4
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg5	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg5
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg6	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg6
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg7	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg7
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg8	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg8
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg9	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg9
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg10	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg10
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg11	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg11
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg12	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg12
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg13	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg13
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg14	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg14
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg15	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg15
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg16	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg16
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg17	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg17
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg18	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg18
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg19	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg19
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg20	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg20
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg21	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg21
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg22	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg22
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg23	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg23
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg24	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg24
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg25	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg25
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg26	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg26
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg27	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg27
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg28	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg28
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg29	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg29
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg30	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg30
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Application_Run
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Macro)) CALL AUTOADDARG(invokeargs, '$ARG1', Macro, AUTO_ARG_IN)
				IF (PRESENT(Arg1)) CALL AUTOADDARG(invokeargs, '$ARG2', Arg1, AUTO_ARG_IN)
				IF (PRESENT(Arg2)) CALL AUTOADDARG(invokeargs, '$ARG3', Arg2, AUTO_ARG_IN)
				IF (PRESENT(Arg3)) CALL AUTOADDARG(invokeargs, '$ARG4', Arg3, AUTO_ARG_IN)
				IF (PRESENT(Arg4)) CALL AUTOADDARG(invokeargs, '$ARG5', Arg4, AUTO_ARG_IN)
				IF (PRESENT(Arg5)) CALL AUTOADDARG(invokeargs, '$ARG6', Arg5, AUTO_ARG_IN)
				IF (PRESENT(Arg6)) CALL AUTOADDARG(invokeargs, '$ARG7', Arg6, AUTO_ARG_IN)
				IF (PRESENT(Arg7)) CALL AUTOADDARG(invokeargs, '$ARG8', Arg7, AUTO_ARG_IN)
				IF (PRESENT(Arg8)) CALL AUTOADDARG(invokeargs, '$ARG9', Arg8, AUTO_ARG_IN)
				IF (PRESENT(Arg9)) CALL AUTOADDARG(invokeargs, '$ARG10', Arg9, AUTO_ARG_IN)
				IF (PRESENT(Arg10)) CALL AUTOADDARG(invokeargs, '$ARG11', Arg10, AUTO_ARG_IN)
				IF (PRESENT(Arg11)) CALL AUTOADDARG(invokeargs, '$ARG12', Arg11, AUTO_ARG_IN)
				IF (PRESENT(Arg12)) CALL AUTOADDARG(invokeargs, '$ARG13', Arg12, AUTO_ARG_IN)
				IF (PRESENT(Arg13)) CALL AUTOADDARG(invokeargs, '$ARG14', Arg13, AUTO_ARG_IN)
				IF (PRESENT(Arg14)) CALL AUTOADDARG(invokeargs, '$ARG15', Arg14, AUTO_ARG_IN)
				IF (PRESENT(Arg15)) CALL AUTOADDARG(invokeargs, '$ARG16', Arg15, AUTO_ARG_IN)
				IF (PRESENT(Arg16)) CALL AUTOADDARG(invokeargs, '$ARG17', Arg16, AUTO_ARG_IN)
				IF (PRESENT(Arg17)) CALL AUTOADDARG(invokeargs, '$ARG18', Arg17, AUTO_ARG_IN)
				IF (PRESENT(Arg18)) CALL AUTOADDARG(invokeargs, '$ARG19', Arg18, AUTO_ARG_IN)
				IF (PRESENT(Arg19)) CALL AUTOADDARG(invokeargs, '$ARG20', Arg19, AUTO_ARG_IN)
				IF (PRESENT(Arg20)) CALL AUTOADDARG(invokeargs, '$ARG21', Arg20, AUTO_ARG_IN)
				IF (PRESENT(Arg21)) CALL AUTOADDARG(invokeargs, '$ARG22', Arg21, AUTO_ARG_IN)
				IF (PRESENT(Arg22)) CALL AUTOADDARG(invokeargs, '$ARG23', Arg22, AUTO_ARG_IN)
				IF (PRESENT(Arg23)) CALL AUTOADDARG(invokeargs, '$ARG24', Arg23, AUTO_ARG_IN)
				IF (PRESENT(Arg24)) CALL AUTOADDARG(invokeargs, '$ARG25', Arg24, AUTO_ARG_IN)
				IF (PRESENT(Arg25)) CALL AUTOADDARG(invokeargs, '$ARG26', Arg25, AUTO_ARG_IN)
				IF (PRESENT(Arg26)) CALL AUTOADDARG(invokeargs, '$ARG27', Arg26, AUTO_ARG_IN)
				IF (PRESENT(Arg27)) CALL AUTOADDARG(invokeargs, '$ARG28', Arg27, AUTO_ARG_IN)
				IF (PRESENT(Arg28)) CALL AUTOADDARG(invokeargs, '$ARG29', Arg28, AUTO_ARG_IN)
				IF (PRESENT(Arg29)) CALL AUTOADDARG(invokeargs, '$ARG30', Arg29, AUTO_ARG_IN)
				IF (PRESENT(Arg30)) CALL AUTOADDARG(invokeargs, '$ARG31', Arg30, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 259, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_Run = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_Run
  			SUBROUTINE $Application_Save($OBJECT, Filename, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Save
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Filename	
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Filename)) CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 283, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Save
  			SUBROUTINE $Application_SaveWorkspace($OBJECT, Filename, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SaveWorkspace
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Filename	
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Filename)) CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 212, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SaveWorkspace
  			SUBROUTINE $Application_SendKeys($OBJECT, Keys, Wait, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SendKeys
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Keys	
				!DEC$ ATTRIBUTES REFERENCE	:: Keys
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Wait	
				!DEC$ ATTRIBUTES REFERENCE	:: Wait
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Keys, AUTO_ARG_IN)
				IF (PRESENT(Wait)) CALL AUTOADDARG(invokeargs, '$ARG2', Wait, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 383, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SendKeys
  			SUBROUTINE $Application_SetActivePrinter($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetActivePrinter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActivePrinter', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 306, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetActivePrinter
  			SUBROUTINE $Application_SetAlertBeforeOverwriting($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetAlertBeforeOverwriting
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AlertBeforeOverwriting', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 930, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetAlertBeforeOverwriting
  			SUBROUTINE $Application_SetAltStartupPath($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetAltStartupPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AltStartupPath', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 313, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetAltStartupPath
  			SUBROUTINE $Application_SetAskToUpdateLinks($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetAskToUpdateLinks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AskToUpdateLinks', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 992, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetAskToUpdateLinks
  			SUBROUTINE $Application_SetCalculateBeforeSave($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCalculateBeforeSave
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CalculateBeforeSave', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 315, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCalculateBeforeSave
  			SUBROUTINE $Application_SetCalculation($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCalculation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Calculation', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 316, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCalculation
  			SUBROUTINE $Application_SetCaption($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCaption
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Caption', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 139, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCaption
  			SUBROUTINE $Application_SetCellDragAndDrop($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCellDragAndDrop
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CellDragAndDrop', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 320, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCellDragAndDrop
  			SUBROUTINE $Application_SetColorButtons($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetColorButtons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ColorButtons', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 365, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetColorButtons
  			SUBROUTINE $Application_SetCommandUnderlines($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCommandUnderlines
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CommandUnderlines', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 323, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCommandUnderlines
  			SUBROUTINE $Application_SetConstrainNumeric($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetConstrainNumeric
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ConstrainNumeric', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 324, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetConstrainNumeric
  			SUBROUTINE $Application_SetControlCharacters($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetControlCharacters
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ControlCharacters', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 233, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetControlCharacters
  			SUBROUTINE $Application_SetCopyObjectsWithCells($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCopyObjectsWithCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CopyObjectsWithCells', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 991, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCopyObjectsWithCells
  			SUBROUTINE $Application_SetCursor($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCursor
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Cursor', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1161, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCursor
  			SUBROUTINE $Application_SetCursorMovement($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCursorMovement
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CursorMovement', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 232, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCursorMovement
  			SUBROUTINE $Application_SetCutCopyMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetCutCopyMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CutCopyMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 330, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetCutCopyMode
  			SUBROUTINE $Application_SetDataEntryMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDataEntryMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DataEntryMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 331, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDataEntryMode
  			SUBROUTINE $Application_SetDefaultChart($OBJECT, FormatName, Gallery, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDefaultChart
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FormatName	
				!DEC$ ATTRIBUTES REFERENCE	:: FormatName
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Gallery	
				!DEC$ ATTRIBUTES REFERENCE	:: Gallery
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(FormatName)) CALL AUTOADDARG(invokeargs, '$ARG1', FormatName, AUTO_ARG_IN)
				IF (PRESENT(Gallery)) CALL AUTOADDARG(invokeargs, '$ARG2', Gallery, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 219, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDefaultChart
  			SUBROUTINE $Application_SetDefaultFilePath($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDefaultFilePath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DefaultFilePath', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1038, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDefaultFilePath
  			SUBROUTINE $Application_SetDefaultSaveFormat($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDefaultSaveFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DefaultSaveFormat', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1209, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDefaultSaveFormat
  			SUBROUTINE $Application_SetDefaultSheetDirection($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDefaultSheetDirection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DefaultSheetDirection', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 229, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDefaultSheetDirection
  			SUBROUTINE $Application_SetDisplayAlerts($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayAlerts
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayAlerts', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 343, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayAlerts
  			SUBROUTINE $Application_SetDisplayClipboardWindow($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayClipboardWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayClipboardWindow', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 322, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayClipboardWindow
  			SUBROUTINE $Application_SetDisplayCommentIndicator($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayCommentIndicator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayCommentIndicator', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1196, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayCommentIndicator
  			SUBROUTINE $Application_SetDisplayExcel4Menus($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayExcel4Menus
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayExcel4Menus', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 927, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayExcel4Menus
  			SUBROUTINE $Application_SetDisplayFormulaBar($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayFormulaBar
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayFormulaBar', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 344, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayFormulaBar
  			SUBROUTINE $Application_SetDisplayFullScreen($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayFullScreen
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayFullScreen', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1061, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayFullScreen
  			SUBROUTINE $Application_SetDisplayInfoWindow($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayInfoWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayInfoWindow', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1213, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayInfoWindow
  			SUBROUTINE $Application_SetDisplayNoteIndicator($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayNoteIndicator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayNoteIndicator', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 345, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayNoteIndicator
  			SUBROUTINE $Application_SetDisplayRecentFiles($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayRecentFiles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayRecentFiles', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 926, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayRecentFiles
  			SUBROUTINE $Application_SetDisplayScrollBars($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayScrollBars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayScrollBars', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 346, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayScrollBars
  			SUBROUTINE $Application_SetDisplayStatusBar($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetDisplayStatusBar
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayStatusBar', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 347, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetDisplayStatusBar
  			SUBROUTINE $Application_SetEditDirectlyInCell($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetEditDirectlyInCell
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EditDirectlyInCell', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 929, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetEditDirectlyInCell
  			SUBROUTINE $Application_SetEnableAnimations($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetEnableAnimations
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableAnimations', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1180, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetEnableAnimations
  			SUBROUTINE $Application_SetEnableAutoComplete($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetEnableAutoComplete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableAutoComplete', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1179, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetEnableAutoComplete
  			SUBROUTINE $Application_SetEnableCancelKey($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetEnableCancelKey
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableCancelKey', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1096, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetEnableCancelKey
  			SUBROUTINE $Application_SetEnableEvents($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetEnableEvents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableEvents', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1212, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetEnableEvents
  			SUBROUTINE $Application_SetEnableSound($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetEnableSound
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSound', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1197, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetEnableSound
  			SUBROUTINE $Application_SetEnableTipWizard($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetEnableTipWizard
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableTipWizard', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1064, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetEnableTipWizard
  			SUBROUTINE $Application_SetFixedDecimal($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetFixedDecimal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FixedDecimal', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 351, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetFixedDecimal
  			SUBROUTINE $Application_SetFixedDecimalPlaces($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetFixedDecimalPlaces
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FixedDecimalPlaces', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 352, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetFixedDecimalPlaces
  			SUBROUTINE $Application_SetHeight($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Height', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 123, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetHeight
  			SUBROUTINE $Application_SetIgnoreRemoteRequests($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetIgnoreRemoteRequests
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'IgnoreRemoteRequests', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 356, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetIgnoreRemoteRequests
  			SUBROUTINE $Application_SetInteractive($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetInteractive
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Interactive', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 361, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetInteractive
  			SUBROUTINE $Application_SetIteration($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetIteration
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Iteration', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 363, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetIteration
  			SUBROUTINE $Application_SetLargeButtons($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetLargeButtons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'LargeButtons', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 364, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetLargeButtons
  			SUBROUTINE $Application_SetLeft($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetLeft
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Left', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 127, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetLeft
  			SUBROUTINE $Application_SetMaxChange($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetMaxChange
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MaxChange', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 368, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetMaxChange
  			SUBROUTINE $Application_SetMaxIterations($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetMaxIterations
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MaxIterations', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 369, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetMaxIterations
  			SUBROUTINE $Application_SetMoveAfterReturn($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetMoveAfterReturn
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MoveAfterReturn', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 374, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetMoveAfterReturn
  			SUBROUTINE $Application_SetMoveAfterReturnDirection($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetMoveAfterReturnDirection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MoveAfterReturnDirection', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1144, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetMoveAfterReturnDirection
  			SUBROUTINE $Application_SetODBCTimeout($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetODBCTimeout
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ODBCTimeout', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1204, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetODBCTimeout
  			SUBROUTINE $Application_SetOnCalculate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetOnCalculate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnCalculate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 625, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetOnCalculate
  			SUBROUTINE $Application_SetOnData($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetOnData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnData', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 629, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetOnData
  			SUBROUTINE $Application_SetOnDoubleClick($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetOnDoubleClick
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnDoubleClick', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 628, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetOnDoubleClick
  			SUBROUTINE $Application_SetOnEntry($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetOnEntry
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnEntry', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 627, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetOnEntry
  			SUBROUTINE $Application_SetOnSheetActivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetOnSheetActivate
  			SUBROUTINE $Application_SetOnSheetDeactivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetOnSheetDeactivate
  			SUBROUTINE $Application_SetOnWindow($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetOnWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnWindow', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 623, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetOnWindow
  			SUBROUTINE $Application_SetPivotTableSelection($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetPivotTableSelection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PivotTableSelection', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1205, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetPivotTableSelection
  			SUBROUTINE $Application_SetPromptForSummaryInfo($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetPromptForSummaryInfo
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PromptForSummaryInfo', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1062, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetPromptForSummaryInfo
  			SUBROUTINE $Application_SetReferenceStyle($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetReferenceStyle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ReferenceStyle', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 380, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetReferenceStyle
  			SUBROUTINE $Application_SetRollZoom($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetRollZoom
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RollZoom', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1206, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetRollZoom
  			SUBROUTINE $Application_SetScreenUpdating($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetScreenUpdating
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ScreenUpdating', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 382, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetScreenUpdating
  			SUBROUTINE $Application_SetSheetsInNewWorkbook($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetSheetsInNewWorkbook
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SheetsInNewWorkbook', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 993, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetSheetsInNewWorkbook
  			SUBROUTINE $Application_SetShowChartTipNames($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetShowChartTipNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowChartTipNames', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1207, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetShowChartTipNames
  			SUBROUTINE $Application_SetShowChartTipValues($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetShowChartTipValues
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowChartTipValues', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1208, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetShowChartTipValues
  			SUBROUTINE $Application_SetShowToolTips($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetShowToolTips
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowToolTips', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 387, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetShowToolTips
  			SUBROUTINE $Application_SetStandardFont($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetStandardFont
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StandardFont', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 924, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetStandardFont
  			SUBROUTINE $Application_SetStandardFontSize($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetStandardFontSize
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StandardFontSize', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 925, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetStandardFontSize
  			SUBROUTINE $Application_SetStatusBar($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetStatusBar
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StatusBar', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 386, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetStatusBar
  			SUBROUTINE $Application_SetTop($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetTop
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Top', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 126, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetTop
  			SUBROUTINE $Application_SetTransitionMenuKey($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetTransitionMenuKey
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionMenuKey', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 310, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetTransitionMenuKey
  			SUBROUTINE $Application_SetTransitionMenuKeyAction($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetTransitionMenuKeyAction
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionMenuKeyAction', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 311, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetTransitionMenuKeyAction
  			SUBROUTINE $Application_SetTransitionNavigKeys($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetTransitionNavigKeys
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionNavigKeys', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 312, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetTransitionNavigKeys
  			SUBROUTINE $Application_SetUILanguage($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetUILanguage
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UILanguage', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 2, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetUILanguage
  			SUBROUTINE $Application_SetUserControl($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetUserControl
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UserControl', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1210, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetUserControl
  			SUBROUTINE $Application_SetUserName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetUserName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UserName', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 391, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetUserName
  			SUBROUTINE $Application_SetVisible($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetVisible
  			SUBROUTINE $Application_SetWidth($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Width', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 122, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetWidth
  			SUBROUTINE $Application_SetWindowState($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_SetWindowState
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WindowState', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 396, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_SetWindowState
  			SUBROUTINE $Application_Undo($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Undo
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 303, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Undo
  			!$Application_Union return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Application_Union($OBJECT, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Union
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Arg1	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: Arg1
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Arg2	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: Arg2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg3	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg3
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg4	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg4
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg5	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg5
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg6	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg6
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg7	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg7
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg8	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg8
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg9	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg9
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg10	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg10
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg11	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg11
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg12	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg12
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg13	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg13
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg14	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg14
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg15	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg15
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg16	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg16
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg17	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg17
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg18	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg18
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg19	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg19
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg20	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg20
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg21	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg21
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg22	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg22
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg23	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg23
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg24	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg24
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg25	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg25
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg26	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg26
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg27	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg27
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg28	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg28
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg29	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg29
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg30	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg30
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Arg1, AUTO_ARG_IN, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG2', Arg2, AUTO_ARG_IN, VT_DISPATCH)
				IF (PRESENT(Arg3)) CALL AUTOADDARG(invokeargs, '$ARG3', Arg3, AUTO_ARG_IN)
				IF (PRESENT(Arg4)) CALL AUTOADDARG(invokeargs, '$ARG4', Arg4, AUTO_ARG_IN)
				IF (PRESENT(Arg5)) CALL AUTOADDARG(invokeargs, '$ARG5', Arg5, AUTO_ARG_IN)
				IF (PRESENT(Arg6)) CALL AUTOADDARG(invokeargs, '$ARG6', Arg6, AUTO_ARG_IN)
				IF (PRESENT(Arg7)) CALL AUTOADDARG(invokeargs, '$ARG7', Arg7, AUTO_ARG_IN)
				IF (PRESENT(Arg8)) CALL AUTOADDARG(invokeargs, '$ARG8', Arg8, AUTO_ARG_IN)
				IF (PRESENT(Arg9)) CALL AUTOADDARG(invokeargs, '$ARG9', Arg9, AUTO_ARG_IN)
				IF (PRESENT(Arg10)) CALL AUTOADDARG(invokeargs, '$ARG10', Arg10, AUTO_ARG_IN)
				IF (PRESENT(Arg11)) CALL AUTOADDARG(invokeargs, '$ARG11', Arg11, AUTO_ARG_IN)
				IF (PRESENT(Arg12)) CALL AUTOADDARG(invokeargs, '$ARG12', Arg12, AUTO_ARG_IN)
				IF (PRESENT(Arg13)) CALL AUTOADDARG(invokeargs, '$ARG13', Arg13, AUTO_ARG_IN)
				IF (PRESENT(Arg14)) CALL AUTOADDARG(invokeargs, '$ARG14', Arg14, AUTO_ARG_IN)
				IF (PRESENT(Arg15)) CALL AUTOADDARG(invokeargs, '$ARG15', Arg15, AUTO_ARG_IN)
				IF (PRESENT(Arg16)) CALL AUTOADDARG(invokeargs, '$ARG16', Arg16, AUTO_ARG_IN)
				IF (PRESENT(Arg17)) CALL AUTOADDARG(invokeargs, '$ARG17', Arg17, AUTO_ARG_IN)
				IF (PRESENT(Arg18)) CALL AUTOADDARG(invokeargs, '$ARG18', Arg18, AUTO_ARG_IN)
				IF (PRESENT(Arg19)) CALL AUTOADDARG(invokeargs, '$ARG19', Arg19, AUTO_ARG_IN)
				IF (PRESENT(Arg20)) CALL AUTOADDARG(invokeargs, '$ARG20', Arg20, AUTO_ARG_IN)
				IF (PRESENT(Arg21)) CALL AUTOADDARG(invokeargs, '$ARG21', Arg21, AUTO_ARG_IN)
				IF (PRESENT(Arg22)) CALL AUTOADDARG(invokeargs, '$ARG22', Arg22, AUTO_ARG_IN)
				IF (PRESENT(Arg23)) CALL AUTOADDARG(invokeargs, '$ARG23', Arg23, AUTO_ARG_IN)
				IF (PRESENT(Arg24)) CALL AUTOADDARG(invokeargs, '$ARG24', Arg24, AUTO_ARG_IN)
				IF (PRESENT(Arg25)) CALL AUTOADDARG(invokeargs, '$ARG25', Arg25, AUTO_ARG_IN)
				IF (PRESENT(Arg26)) CALL AUTOADDARG(invokeargs, '$ARG26', Arg26, AUTO_ARG_IN)
				IF (PRESENT(Arg27)) CALL AUTOADDARG(invokeargs, '$ARG27', Arg27, AUTO_ARG_IN)
				IF (PRESENT(Arg28)) CALL AUTOADDARG(invokeargs, '$ARG28', Arg28, AUTO_ARG_IN)
				IF (PRESENT(Arg29)) CALL AUTOADDARG(invokeargs, '$ARG29', Arg29, AUTO_ARG_IN)
				IF (PRESENT(Arg30)) CALL AUTOADDARG(invokeargs, '$ARG30', Arg30, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 779, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Application_Union = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Application_Union
  			SUBROUTINE $Application_Volatile($OBJECT, Volatile, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Volatile
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Volatile	
				!DEC$ ATTRIBUTES REFERENCE	:: Volatile
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Volatile)) CALL AUTOADDARG(invokeargs, '$ARG1', Volatile, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 788, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Volatile
  			SUBROUTINE $Application_Wait($OBJECT, Time, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Application_Wait
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Time	
				!DEC$ ATTRIBUTES REFERENCE	:: Time
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Time, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 393, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Application_Wait
  			SUBROUTINE $Chart__Dummy23($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart__Dummy23
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 65559, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart__Dummy23
  			FUNCTION $Chart__Evaluate($OBJECT, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart__Evaluate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Chart__Evaluate
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, -5, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart__Evaluate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart__Evaluate
  			SUBROUTINE $Chart_Activate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Activate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 304, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Activate
  			SUBROUTINE $Chart_ApplyCustomType($OBJECT, ChartType, TypeName, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ApplyCustomType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: ChartType	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: ChartType
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TypeName	
				!DEC$ ATTRIBUTES REFERENCE	:: TypeName
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', ChartType)
				IF (PRESENT(TypeName)) CALL AUTOADDARG(invokeargs, '$ARG2', TypeName, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1401, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_ApplyCustomType
  			SUBROUTINE $Chart_ApplyDataLabels($OBJECT, Type, LegendKey, AutoText, HasLeaderLines, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ApplyDataLabels
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LegendKey	
				!DEC$ ATTRIBUTES REFERENCE	:: LegendKey
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AutoText	
				!DEC$ ATTRIBUTES REFERENCE	:: AutoText
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HasLeaderLines	
				!DEC$ ATTRIBUTES REFERENCE	:: HasLeaderLines
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG1', Type)
				IF (PRESENT(LegendKey)) CALL AUTOADDARG(invokeargs, '$ARG2', LegendKey, AUTO_ARG_IN)
				IF (PRESENT(AutoText)) CALL AUTOADDARG(invokeargs, '$ARG3', AutoText, AUTO_ARG_IN)
				IF (PRESENT(HasLeaderLines)) CALL AUTOADDARG(invokeargs, '$ARG4', HasLeaderLines, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 151, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_ApplyDataLabels
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Arcs($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Arcs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 760, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Arcs = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Arcs
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_AreaGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_AreaGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 9, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_AreaGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_AreaGroups
  			SUBROUTINE $Chart_AutoFormat($OBJECT, Gallery, Format, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_AutoFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Gallery	
				!DEC$ ATTRIBUTES REFERENCE	:: Gallery
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Format	
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Gallery)
				IF (PRESENT(Format)) CALL AUTOADDARG(invokeargs, '$ARG2', Format, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 114, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_AutoFormat
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Axes($OBJECT, Type, AxisGroup, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Axes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: AxisGroup	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: AxisGroup
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Type, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG2', AxisGroup)
				$$STATUS = AUTOINVOKE($OBJECT, 23, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Axes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Axes
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_BarGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_BarGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 10, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_BarGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_BarGroups
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Buttons($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Buttons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 557, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Buttons = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Buttons
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_ChartGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ChartGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 8, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_ChartGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_ChartGroups
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_ChartObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ChartObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1060, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_ChartObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_ChartObjects
  			SUBROUTINE $Chart_ChartWizard($OBJECT, Source, Gallery, Format, PlotBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ChartWizard
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Source	
				!DEC$ ATTRIBUTES REFERENCE	:: Source
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Gallery	
				!DEC$ ATTRIBUTES REFERENCE	:: Gallery
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Format	
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PlotBy	
				!DEC$ ATTRIBUTES REFERENCE	:: PlotBy
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CategoryLabels	
				!DEC$ ATTRIBUTES REFERENCE	:: CategoryLabels
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SeriesLabels	
				!DEC$ ATTRIBUTES REFERENCE	:: SeriesLabels
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HasLegend	
				!DEC$ ATTRIBUTES REFERENCE	:: HasLegend
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Title	
				!DEC$ ATTRIBUTES REFERENCE	:: Title
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CategoryTitle	
				!DEC$ ATTRIBUTES REFERENCE	:: CategoryTitle
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ValueTitle	
				!DEC$ ATTRIBUTES REFERENCE	:: ValueTitle
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ExtraTitle	
				!DEC$ ATTRIBUTES REFERENCE	:: ExtraTitle
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Source)) CALL AUTOADDARG(invokeargs, '$ARG1', Source, AUTO_ARG_IN)
				IF (PRESENT(Gallery)) CALL AUTOADDARG(invokeargs, '$ARG2', Gallery, AUTO_ARG_IN)
				IF (PRESENT(Format)) CALL AUTOADDARG(invokeargs, '$ARG3', Format, AUTO_ARG_IN)
				IF (PRESENT(PlotBy)) CALL AUTOADDARG(invokeargs, '$ARG4', PlotBy, AUTO_ARG_IN)
				IF (PRESENT(CategoryLabels)) CALL AUTOADDARG(invokeargs, '$ARG5', CategoryLabels, AUTO_ARG_IN)
				IF (PRESENT(SeriesLabels)) CALL AUTOADDARG(invokeargs, '$ARG6', SeriesLabels, AUTO_ARG_IN)
				IF (PRESENT(HasLegend)) CALL AUTOADDARG(invokeargs, '$ARG7', HasLegend, AUTO_ARG_IN)
				IF (PRESENT(Title)) CALL AUTOADDARG(invokeargs, '$ARG8', Title, AUTO_ARG_IN)
				IF (PRESENT(CategoryTitle)) CALL AUTOADDARG(invokeargs, '$ARG9', CategoryTitle, AUTO_ARG_IN)
				IF (PRESENT(ValueTitle)) CALL AUTOADDARG(invokeargs, '$ARG10', ValueTitle, AUTO_ARG_IN)
				IF (PRESENT(ExtraTitle)) CALL AUTOADDARG(invokeargs, '$ARG11', ExtraTitle, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 196, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_ChartWizard
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_CheckBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_CheckBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 824, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_CheckBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_CheckBoxes
  			SUBROUTINE $Chart_CheckSpelling($OBJECT, CustomDictionary, IgnoreUppercase, AlwaysSuggest, IgnoreInitialAlefHamza, IgnoreFinalYaa, SpellScript, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_CheckSpelling
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CustomDictionary	
				!DEC$ ATTRIBUTES REFERENCE	:: CustomDictionary
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreUppercase	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreUppercase
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AlwaysSuggest	
				!DEC$ ATTRIBUTES REFERENCE	:: AlwaysSuggest
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreInitialAlefHamza	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreInitialAlefHamza
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreFinalYaa	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreFinalYaa
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SpellScript	
				!DEC$ ATTRIBUTES REFERENCE	:: SpellScript
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(CustomDictionary)) CALL AUTOADDARG(invokeargs, '$ARG1', CustomDictionary, AUTO_ARG_IN)
				IF (PRESENT(IgnoreUppercase)) CALL AUTOADDARG(invokeargs, '$ARG2', IgnoreUppercase, AUTO_ARG_IN)
				IF (PRESENT(AlwaysSuggest)) CALL AUTOADDARG(invokeargs, '$ARG3', AlwaysSuggest, AUTO_ARG_IN)
				IF (PRESENT(IgnoreInitialAlefHamza)) CALL AUTOADDARG(invokeargs, '$ARG4', IgnoreInitialAlefHamza, AUTO_ARG_IN)
				IF (PRESENT(IgnoreFinalYaa)) CALL AUTOADDARG(invokeargs, '$ARG5', IgnoreFinalYaa, AUTO_ARG_IN)
				IF (PRESENT(SpellScript)) CALL AUTOADDARG(invokeargs, '$ARG6', SpellScript, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 505, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_CheckSpelling
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_ColumnGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ColumnGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 11, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_ColumnGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_ColumnGroups
  			SUBROUTINE $Chart_Copy($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Copy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 551, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Copy
  			SUBROUTINE $Chart_CopyChartBuild($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_CopyChartBuild
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1404, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_CopyChartBuild
  			SUBROUTINE $Chart_CopyPicture($OBJECT, Appearance, Format, Size, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_CopyPicture
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Appearance	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Appearance
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Format	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Size	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Size
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Appearance)
				CALL AUTOADDARG(invokeargs, '$ARG2', Format)
				CALL AUTOADDARG(invokeargs, '$ARG3', Size)
				$$STATUS = AUTOINVOKE($OBJECT, 213, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_CopyPicture
  			SUBROUTINE $Chart_CreatePublisher($OBJECT, Edition, Appearance, Size, ContainsPICT, ContainsBIFF, ContainsRTF, ContainsVALU, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_CreatePublisher
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Edition	
				!DEC$ ATTRIBUTES REFERENCE	:: Edition
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Appearance	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Appearance
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Size	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Size
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsPICT	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsPICT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsBIFF	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsBIFF
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsRTF	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsRTF
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsVALU	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsVALU
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Edition)) CALL AUTOADDARG(invokeargs, '$ARG1', Edition, AUTO_ARG_IN)
				IF (PRESENT(Appearance)) CALL AUTOADDARG(invokeargs, '$ARG2', Appearance)
				IF (PRESENT(Size)) CALL AUTOADDARG(invokeargs, '$ARG3', Size)
				IF (PRESENT(ContainsPICT)) CALL AUTOADDARG(invokeargs, '$ARG4', ContainsPICT, AUTO_ARG_IN)
				IF (PRESENT(ContainsBIFF)) CALL AUTOADDARG(invokeargs, '$ARG5', ContainsBIFF, AUTO_ARG_IN)
				IF (PRESENT(ContainsRTF)) CALL AUTOADDARG(invokeargs, '$ARG6', ContainsRTF, AUTO_ARG_IN)
				IF (PRESENT(ContainsVALU)) CALL AUTOADDARG(invokeargs, '$ARG7', ContainsVALU, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 458, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_CreatePublisher
  			SUBROUTINE $Chart_Delete($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Delete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 117, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Delete
  			SUBROUTINE $Chart_Deselect($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Deselect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1120, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Deselect
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_DoughnutGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_DoughnutGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 14, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_DoughnutGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_DoughnutGroups
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_DrawingObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_DrawingObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 88, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_DrawingObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_DrawingObjects
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Drawings($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Drawings
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 772, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Drawings = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Drawings
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_DropDowns($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_DropDowns
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 836, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_DropDowns = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_DropDowns
  			FUNCTION $Chart_Evaluate($OBJECT, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Evaluate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Chart_Evaluate
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Evaluate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Evaluate
  			LOGICAL*2 FUNCTION $Chart_Export($OBJECT, Filename, FilterName, Interactive, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Export
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FilterName	
				!DEC$ ATTRIBUTES REFERENCE	:: FilterName
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Interactive	
				!DEC$ ATTRIBUTES REFERENCE	:: Interactive
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(FilterName)) CALL AUTOADDARG(invokeargs, '$ARG2', FilterName, AUTO_ARG_IN)
				IF (PRESENT(Interactive)) CALL AUTOADDARG(invokeargs, '$ARG3', Interactive, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1414, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Export = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Export
  			CHARACTER*(2048) FUNCTION $Chart_Get_CodeName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Get_CodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_CodeName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -2147418112, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Get_CodeName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Get_CodeName
  			!$Chart_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetApplication
  			!$Chart_GetArea3DGroup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetArea3DGroup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetArea3DGroup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Area3DGroup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 17, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetArea3DGroup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetArea3DGroup
  			LOGICAL*2 FUNCTION $Chart_GetAutoScaling($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetAutoScaling
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoScaling', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 107, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetAutoScaling = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetAutoScaling
  			!$Chart_GetBar3DGroup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetBar3DGroup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetBar3DGroup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Bar3DGroup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 18, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetBar3DGroup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetBar3DGroup
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetBarShape($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetBarShape
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'BarShape', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1403, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetBarShape = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetBarShape
  			!$Chart_GetChartArea return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetChartArea($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetChartArea
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ChartArea', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 80, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetChartArea = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetChartArea
  			SUBROUTINE $Chart_GetChartElement($OBJECT, X, Y, ElementID, Arg1, Arg2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetChartElement
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: X	
				!DEC$ ATTRIBUTES REFERENCE	:: X
				INTEGER*4, INTENT(IN)	:: Y	
				!DEC$ ATTRIBUTES REFERENCE	:: Y
				INTEGER*4, INTENT(IN)	:: ElementID	
				!DEC$ ATTRIBUTES REFERENCE	:: ElementID
				INTEGER*4, INTENT(IN)	:: Arg1	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg1
				INTEGER*4, INTENT(IN)	:: Arg2	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', X)
				CALL AUTOADDARG(invokeargs, '$ARG2', Y)
				CALL AUTOADDARG(invokeargs, '$ARG3', ElementID)
				CALL AUTOADDARG(invokeargs, '$ARG4', Arg1)
				CALL AUTOADDARG(invokeargs, '$ARG5', Arg2)
				$$STATUS = AUTOINVOKE($OBJECT, 1409, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_GetChartElement
  			!$Chart_GetChartTitle return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetChartTitle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetChartTitle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ChartTitle', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 81, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetChartTitle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetChartTitle
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetChartType($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetChartType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ChartType', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1400, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetChartType = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetChartType
  			CHARACTER*(2048) FUNCTION $Chart_GetCodeName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetCodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CodeName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1373, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetCodeName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetCodeName
  			!$Chart_GetColumn3DGroup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetColumn3DGroup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetColumn3DGroup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Column3DGroup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 19, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetColumn3DGroup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetColumn3DGroup
  			!$Chart_GetCorners return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetCorners($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetCorners
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Corners', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 79, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetCorners = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetCorners
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetCreator
  			!$Chart_GetDataTable return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetDataTable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetDataTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DataTable', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1395, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetDataTable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetDataTable
  			INTEGER*4 FUNCTION $Chart_GetDepthPercent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetDepthPercent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DepthPercent', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 48, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetDepthPercent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetDepthPercent
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetDisplayBlanksAs($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetDisplayBlanksAs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayBlanksAs', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 93, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetDisplayBlanksAs = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetDisplayBlanksAs
  			INTEGER*4 FUNCTION $Chart_GetElevation($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetElevation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Elevation', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 49, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetElevation = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetElevation
  			!$Chart_GetFloor return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetFloor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetFloor
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Floor', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 83, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetFloor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetFloor
  			INTEGER*4 FUNCTION $Chart_GetGapDepth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetGapDepth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'GapDepth', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 50, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetGapDepth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetGapDepth
  			FUNCTION $Chart_GetHasAxis($OBJECT, Index1, Index2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetHasAxis
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index1	
				!DEC$ ATTRIBUTES REFERENCE	:: Index1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index2	
				!DEC$ ATTRIBUTES REFERENCE	:: Index2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Chart_GetHasAxis
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasAxis', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index1)) CALL AUTOADDARG(invokeargs, '$ARG1', Index1, AUTO_ARG_IN)
				IF (PRESENT(Index2)) CALL AUTOADDARG(invokeargs, '$ARG2', Index2, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 52, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetHasAxis = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetHasAxis
  			LOGICAL*2 FUNCTION $Chart_GetHasDataTable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetHasDataTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasDataTable', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1396, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetHasDataTable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetHasDataTable
  			LOGICAL*2 FUNCTION $Chart_GetHasLegend($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetHasLegend
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasLegend', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 53, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetHasLegend = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetHasLegend
  			LOGICAL*2 FUNCTION $Chart_GetHasTitle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetHasTitle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasTitle', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 54, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetHasTitle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetHasTitle
  			INTEGER*4 FUNCTION $Chart_GetHeightPercent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetHeightPercent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HeightPercent', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 55, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetHeightPercent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetHeightPercent
  			!$Chart_GetHyperlinks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetHyperlinks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetHyperlinks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Hyperlinks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1393, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetHyperlinks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetHyperlinks
  			INTEGER*4 FUNCTION $Chart_GetIndex($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetIndex
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Index', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 486, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetIndex = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetIndex
  			!$Chart_GetLegend return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetLegend($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetLegend
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Legend', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 84, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetLegend = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetLegend
  			!$Chart_GetLine3DGroup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetLine3DGroup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetLine3DGroup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Line3DGroup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 20, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetLine3DGroup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetLine3DGroup
  			CHARACTER*(2048) FUNCTION $Chart_GetName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetName
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetNext($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetNext
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Next', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 502, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetNext = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetNext
  			CHARACTER*(2048) FUNCTION $Chart_GetOnDoubleClick($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetOnDoubleClick
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnDoubleClick', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 628, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetOnDoubleClick = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetOnDoubleClick
  			CHARACTER*(2048) FUNCTION $Chart_GetOnSheetActivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetOnSheetActivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetOnSheetActivate
  			CHARACTER*(2048) FUNCTION $Chart_GetOnSheetDeactivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetOnSheetDeactivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetOnSheetDeactivate
  			!$Chart_GetPageSetup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetPageSetup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetPageSetup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PageSetup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 998, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetPageSetup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetPageSetup
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetParent
  			INTEGER*4 FUNCTION $Chart_GetPerspective($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetPerspective
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Perspective', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 57, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetPerspective = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetPerspective
  			!$Chart_GetPie3DGroup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetPie3DGroup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetPie3DGroup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Pie3DGroup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 21, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetPie3DGroup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetPie3DGroup
  			!$Chart_GetPlotArea return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetPlotArea($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetPlotArea
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlotArea', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 85, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetPlotArea = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetPlotArea
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetPlotBy($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetPlotBy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlotBy', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 202, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetPlotBy = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetPlotBy
  			LOGICAL*2 FUNCTION $Chart_GetPlotVisibleOnly($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetPlotVisibleOnly
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlotVisibleOnly', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 92, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetPlotVisibleOnly = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetPlotVisibleOnly
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetPrevious($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetPrevious
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Previous', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 503, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetPrevious = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetPrevious
  			LOGICAL*2 FUNCTION $Chart_GetProtectContents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetProtectContents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectContents', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 292, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetProtectContents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetProtectContents
  			LOGICAL*2 FUNCTION $Chart_GetProtectData($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetProtectData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectData', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1406, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetProtectData = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetProtectData
  			LOGICAL*2 FUNCTION $Chart_GetProtectDrawingObjects($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetProtectDrawingObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectDrawingObjects', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 293, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetProtectDrawingObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetProtectDrawingObjects
  			LOGICAL*2 FUNCTION $Chart_GetProtectFormatting($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetProtectFormatting
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectFormatting', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1405, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetProtectFormatting = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetProtectFormatting
  			LOGICAL*2 FUNCTION $Chart_GetProtectGoalSeek($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetProtectGoalSeek
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectGoalSeek', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1407, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetProtectGoalSeek = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetProtectGoalSeek
  			LOGICAL*2 FUNCTION $Chart_GetProtectionMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetProtectionMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectionMode', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1159, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetProtectionMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetProtectionMode
  			LOGICAL*2 FUNCTION $Chart_GetProtectSelection($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetProtectSelection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectSelection', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1408, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetProtectSelection = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetProtectSelection
  			FUNCTION $Chart_GetRightAngleAxes($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetRightAngleAxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Chart_GetRightAngleAxes
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RightAngleAxes', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 58, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetRightAngleAxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetRightAngleAxes
  			FUNCTION $Chart_GetRotation($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetRotation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Chart_GetRotation
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rotation', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 59, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetRotation = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetRotation
  			!$Chart_GetShapes return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetShapes($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetShapes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Shapes', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1377, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetShapes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetShapes
  			LOGICAL*2 FUNCTION $Chart_GetShowWindow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetShowWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowWindow', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1399, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetShowWindow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetShowWindow
  			LOGICAL*2 FUNCTION $Chart_GetSizeWithWindow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetSizeWithWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SizeWithWindow', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 94, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetSizeWithWindow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetSizeWithWindow
  			INTEGER*4 FUNCTION $Chart_GetSubType($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetSubType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SubType', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 109, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetSubType = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetSubType
  			!$Chart_GetSurfaceGroup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetSurfaceGroup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetSurfaceGroup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SurfaceGroup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 22, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetSurfaceGroup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetSurfaceGroup
  			INTEGER*4 FUNCTION $Chart_GetType($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Type', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 108, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetType = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetType
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetVisible($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetVisible = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetVisible
  			!$Chart_GetWalls return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GetWalls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetWalls
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Walls', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 86, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetWalls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetWalls
  			LOGICAL*2 FUNCTION $Chart_GetWallsAndGridlines2D($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GetWallsAndGridlines2D
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WallsAndGridlines2D', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 210, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GetWallsAndGridlines2D = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GetWallsAndGridlines2D
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GroupBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GroupBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 834, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GroupBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GroupBoxes
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_GroupObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_GroupObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1113, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_GroupObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_GroupObjects
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Labels($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Labels
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 841, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Labels = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Labels
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_LineGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_LineGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 12, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_LineGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_LineGroups
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Lines($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Lines
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 767, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Lines = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Lines
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_ListBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ListBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 832, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_ListBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_ListBoxes
  			!$Chart_Location return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Location($OBJECT, Where, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Location
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Where	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Where
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Where)
				IF (PRESENT(Name)) CALL AUTOADDARG(invokeargs, '$ARG2', Name, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1397, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Location = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Location
  			SUBROUTINE $Chart_Move($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Move
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 637, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Move
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_OLEObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_OLEObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 799, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_OLEObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_OLEObjects
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_OptionButtons($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_OptionButtons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 826, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_OptionButtons = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_OptionButtons
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Ovals($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Ovals
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 801, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Ovals = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Ovals
  			SUBROUTINE $Chart_Paste($OBJECT, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Paste
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG1', Type, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 211, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Paste
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Pictures($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Pictures
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 771, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Pictures = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Pictures
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_PieGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_PieGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 13, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_PieGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_PieGroups
  			SUBROUTINE $Chart_PrintOut($OBJECT, From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_PrintOut
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: From	
				!DEC$ ATTRIBUTES REFERENCE	:: From
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: To	
				!DEC$ ATTRIBUTES REFERENCE	:: To
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Copies	
				!DEC$ ATTRIBUTES REFERENCE	:: Copies
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Preview	
				!DEC$ ATTRIBUTES REFERENCE	:: Preview
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ActivePrinter	
				!DEC$ ATTRIBUTES REFERENCE	:: ActivePrinter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PrintToFile	
				!DEC$ ATTRIBUTES REFERENCE	:: PrintToFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Collate	
				!DEC$ ATTRIBUTES REFERENCE	:: Collate
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(From)) CALL AUTOADDARG(invokeargs, '$ARG1', From, AUTO_ARG_IN)
				IF (PRESENT(To)) CALL AUTOADDARG(invokeargs, '$ARG2', To, AUTO_ARG_IN)
				IF (PRESENT(Copies)) CALL AUTOADDARG(invokeargs, '$ARG3', Copies, AUTO_ARG_IN)
				IF (PRESENT(Preview)) CALL AUTOADDARG(invokeargs, '$ARG4', Preview, AUTO_ARG_IN)
				IF (PRESENT(ActivePrinter)) CALL AUTOADDARG(invokeargs, '$ARG5', ActivePrinter, AUTO_ARG_IN)
				IF (PRESENT(PrintToFile)) CALL AUTOADDARG(invokeargs, '$ARG6', PrintToFile, AUTO_ARG_IN)
				IF (PRESENT(Collate)) CALL AUTOADDARG(invokeargs, '$ARG7', Collate, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 905, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_PrintOut
  			SUBROUTINE $Chart_PrintPreview($OBJECT, EnableChanges, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_PrintPreview
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: EnableChanges	
				!DEC$ ATTRIBUTES REFERENCE	:: EnableChanges
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(EnableChanges)) CALL AUTOADDARG(invokeargs, '$ARG1', EnableChanges, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 281, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_PrintPreview
  			SUBROUTINE $Chart_Protect($OBJECT, Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Protect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: DrawingObjects	
				!DEC$ ATTRIBUTES REFERENCE	:: DrawingObjects
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Contents	
				!DEC$ ATTRIBUTES REFERENCE	:: Contents
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Scenarios	
				!DEC$ ATTRIBUTES REFERENCE	:: Scenarios
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: UserInterfaceOnly	
				!DEC$ ATTRIBUTES REFERENCE	:: UserInterfaceOnly
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG1', Password, AUTO_ARG_IN)
				IF (PRESENT(DrawingObjects)) CALL AUTOADDARG(invokeargs, '$ARG2', DrawingObjects, AUTO_ARG_IN)
				IF (PRESENT(Contents)) CALL AUTOADDARG(invokeargs, '$ARG3', Contents, AUTO_ARG_IN)
				IF (PRESENT(Scenarios)) CALL AUTOADDARG(invokeargs, '$ARG4', Scenarios, AUTO_ARG_IN)
				IF (PRESENT(UserInterfaceOnly)) CALL AUTOADDARG(invokeargs, '$ARG5', UserInterfaceOnly, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 282, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Protect
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_RadarGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_RadarGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 15, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_RadarGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_RadarGroups
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Rectangles($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Rectangles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 774, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Rectangles = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Rectangles
  			SUBROUTINE $Chart_Refresh($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Refresh
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1417, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Refresh
  			SUBROUTINE $Chart_SaveAs($OBJECT, Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SaveAs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FileFormat	
				!DEC$ ATTRIBUTES REFERENCE	:: FileFormat
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: WriteResPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: WriteResPassword
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadOnlyRecommended	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadOnlyRecommended
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CreateBackup	
				!DEC$ ATTRIBUTES REFERENCE	:: CreateBackup
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AddToMru	
				!DEC$ ATTRIBUTES REFERENCE	:: AddToMru
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TextCodepage	
				!DEC$ ATTRIBUTES REFERENCE	:: TextCodepage
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TextVisualLayout	
				!DEC$ ATTRIBUTES REFERENCE	:: TextVisualLayout
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(FileFormat)) CALL AUTOADDARG(invokeargs, '$ARG2', FileFormat, AUTO_ARG_IN)
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG3', Password, AUTO_ARG_IN)
				IF (PRESENT(WriteResPassword)) CALL AUTOADDARG(invokeargs, '$ARG4', WriteResPassword, AUTO_ARG_IN)
				IF (PRESENT(ReadOnlyRecommended)) CALL AUTOADDARG(invokeargs, '$ARG5', ReadOnlyRecommended, AUTO_ARG_IN)
				IF (PRESENT(CreateBackup)) CALL AUTOADDARG(invokeargs, '$ARG6', CreateBackup, AUTO_ARG_IN)
				IF (PRESENT(AddToMru)) CALL AUTOADDARG(invokeargs, '$ARG7', AddToMru, AUTO_ARG_IN)
				IF (PRESENT(TextCodepage)) CALL AUTOADDARG(invokeargs, '$ARG8', TextCodepage, AUTO_ARG_IN)
				IF (PRESENT(TextVisualLayout)) CALL AUTOADDARG(invokeargs, '$ARG9', TextVisualLayout, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 284, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SaveAs
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_ScrollBars($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_ScrollBars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 830, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_ScrollBars = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_ScrollBars
  			SUBROUTINE $Chart_Select($OBJECT, Replace, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Select
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Replace	
				!DEC$ ATTRIBUTES REFERENCE	:: Replace
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Replace)) CALL AUTOADDARG(invokeargs, '$ARG1', Replace, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 235, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Select
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_SeriesCollection($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SeriesCollection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 68, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_SeriesCollection = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_SeriesCollection
  			SUBROUTINE $Chart_Set_CodeName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Set_CodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_CodeName', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, -2147418112, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Set_CodeName
  			SUBROUTINE $Chart_SetAutoScaling($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetAutoScaling
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoScaling', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 107, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetAutoScaling
  			SUBROUTINE $Chart_SetBackgroundPicture($OBJECT, Filename, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetBackgroundPicture
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 1188, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetBackgroundPicture
  			SUBROUTINE $Chart_SetBarShape($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetBarShape
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'BarShape', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1403, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetBarShape
  			SUBROUTINE $Chart_SetChartType($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetChartType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ChartType', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1400, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetChartType
  			SUBROUTINE $Chart_SetDepthPercent($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetDepthPercent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DepthPercent', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 48, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetDepthPercent
  			SUBROUTINE $Chart_SetDisplayBlanksAs($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetDisplayBlanksAs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayBlanksAs', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 93, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetDisplayBlanksAs
  			SUBROUTINE $Chart_SetElevation($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetElevation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Elevation', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 49, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetElevation
  			SUBROUTINE $Chart_SetGapDepth($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetGapDepth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'GapDepth', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 50, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetGapDepth
  			SUBROUTINE $Chart_SetHasAxis($OBJECT, Index1, Index2, $ARG3, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetHasAxis
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index1	
				!DEC$ ATTRIBUTES REFERENCE	:: Index1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index2	
				!DEC$ ATTRIBUTES REFERENCE	:: Index2
				TYPE (VARIANT), INTENT(IN)	:: $ARG3	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG3
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasAxis', $ARG3, AUTO_ARG_IN)
				IF (PRESENT(Index1)) CALL AUTOADDARG(invokeargs, '$ARG1', Index1, AUTO_ARG_IN)
				IF (PRESENT(Index2)) CALL AUTOADDARG(invokeargs, '$ARG2', Index2, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 52, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetHasAxis
  			SUBROUTINE $Chart_SetHasDataTable($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetHasDataTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasDataTable', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1396, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetHasDataTable
  			SUBROUTINE $Chart_SetHasLegend($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetHasLegend
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasLegend', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 53, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetHasLegend
  			SUBROUTINE $Chart_SetHasTitle($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetHasTitle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasTitle', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 54, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetHasTitle
  			SUBROUTINE $Chart_SetHeightPercent($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetHeightPercent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HeightPercent', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 55, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetHeightPercent
  			SUBROUTINE $Chart_SetName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetName
  			SUBROUTINE $Chart_SetOnDoubleClick($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetOnDoubleClick
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnDoubleClick', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 628, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetOnDoubleClick
  			SUBROUTINE $Chart_SetOnSheetActivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetOnSheetActivate
  			SUBROUTINE $Chart_SetOnSheetDeactivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetOnSheetDeactivate
  			SUBROUTINE $Chart_SetPerspective($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetPerspective
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Perspective', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 57, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetPerspective
  			SUBROUTINE $Chart_SetPlotBy($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetPlotBy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlotBy', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 202, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetPlotBy
  			SUBROUTINE $Chart_SetPlotVisibleOnly($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetPlotVisibleOnly
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlotVisibleOnly', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 92, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetPlotVisibleOnly
  			SUBROUTINE $Chart_SetProtectData($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetProtectData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectData', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1406, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetProtectData
  			SUBROUTINE $Chart_SetProtectFormatting($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetProtectFormatting
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectFormatting', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1405, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetProtectFormatting
  			SUBROUTINE $Chart_SetProtectGoalSeek($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetProtectGoalSeek
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectGoalSeek', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1407, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetProtectGoalSeek
  			SUBROUTINE $Chart_SetProtectSelection($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetProtectSelection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectSelection', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1408, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetProtectSelection
  			SUBROUTINE $Chart_SetRightAngleAxes($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetRightAngleAxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RightAngleAxes', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 58, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetRightAngleAxes
  			SUBROUTINE $Chart_SetRotation($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetRotation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rotation', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 59, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetRotation
  			SUBROUTINE $Chart_SetShowWindow($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetShowWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowWindow', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1399, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetShowWindow
  			SUBROUTINE $Chart_SetSizeWithWindow($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetSizeWithWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SizeWithWindow', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 94, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetSizeWithWindow
  			SUBROUTINE $Chart_SetSourceData($OBJECT, Source, PlotBy, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetSourceData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Source	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: Source
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PlotBy	
				!DEC$ ATTRIBUTES REFERENCE	:: PlotBy
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Source, AUTO_ARG_IN, VT_DISPATCH)
				IF (PRESENT(PlotBy)) CALL AUTOADDARG(invokeargs, '$ARG2', PlotBy, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1413, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetSourceData
  			SUBROUTINE $Chart_SetSubType($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetSubType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SubType', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 109, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetSubType
  			SUBROUTINE $Chart_SetType($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Type', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 108, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetType
  			SUBROUTINE $Chart_SetVisible($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetVisible
  			SUBROUTINE $Chart_SetWallsAndGridlines2D($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_SetWallsAndGridlines2D
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WallsAndGridlines2D', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 210, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_SetWallsAndGridlines2D
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_Spinners($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Spinners
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 838, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_Spinners = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_Spinners
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_TextBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_TextBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 777, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_TextBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_TextBoxes
  			SUBROUTINE $Chart_Unprotect($OBJECT, Password, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_Unprotect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG1', Password, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 285, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Chart_Unprotect
  			INTEGER(INT_PTR_KIND()) FUNCTION $Chart_XYGroups($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Chart_XYGroups
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 16, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Chart_XYGroups = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Chart_XYGroups
  			SUBROUTINE $Workbook_AcceptAllChanges($OBJECT, When, Who, Where, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_AcceptAllChanges
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: When	
				!DEC$ ATTRIBUTES REFERENCE	:: When
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Who	
				!DEC$ ATTRIBUTES REFERENCE	:: Who
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Where	
				!DEC$ ATTRIBUTES REFERENCE	:: Where
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(When)) CALL AUTOADDARG(invokeargs, '$ARG1', When, AUTO_ARG_IN)
				IF (PRESENT(Who)) CALL AUTOADDARG(invokeargs, '$ARG2', Who, AUTO_ARG_IN)
				IF (PRESENT(Where)) CALL AUTOADDARG(invokeargs, '$ARG3', Where, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1466, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_AcceptAllChanges
  			SUBROUTINE $Workbook_Activate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Activate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 304, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Activate
  			SUBROUTINE $Workbook_AddToFavorites($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_AddToFavorites
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1476, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_AddToFavorites
  			SUBROUTINE $Workbook_ChangeFileAccess($OBJECT, Mode, WritePassword, Notify, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_ChangeFileAccess
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Mode	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Mode
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: WritePassword	
				!DEC$ ATTRIBUTES REFERENCE	:: WritePassword
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Notify	
				!DEC$ ATTRIBUTES REFERENCE	:: Notify
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Mode)
				IF (PRESENT(WritePassword)) CALL AUTOADDARG(invokeargs, '$ARG2', WritePassword, AUTO_ARG_IN)
				IF (PRESENT(Notify)) CALL AUTOADDARG(invokeargs, '$ARG3', Notify, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 989, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_ChangeFileAccess
  			SUBROUTINE $Workbook_ChangeLink($OBJECT, Name, NewName, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_ChangeLink
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Name	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				CHARACTER*(*), INTENT(IN)	:: NewName	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: NewName
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG2', NewName, AUTO_ARG_IN, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG3', Type)
				$$STATUS = AUTOINVOKE($OBJECT, 802, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_ChangeLink
  			SUBROUTINE $Workbook_Close($OBJECT, SaveChanges, Filename, RouteWorkbook, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Close
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SaveChanges	
				!DEC$ ATTRIBUTES REFERENCE	:: SaveChanges
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Filename	
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RouteWorkbook	
				!DEC$ ATTRIBUTES REFERENCE	:: RouteWorkbook
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(SaveChanges)) CALL AUTOADDARG(invokeargs, '$ARG1', SaveChanges, AUTO_ARG_IN)
				IF (PRESENT(Filename)) CALL AUTOADDARG(invokeargs, '$ARG2', Filename, AUTO_ARG_IN)
				IF (PRESENT(RouteWorkbook)) CALL AUTOADDARG(invokeargs, '$ARG3', RouteWorkbook, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 277, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Close
  			SUBROUTINE $Workbook_DeleteNumberFormat($OBJECT, NumberFormat, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_DeleteNumberFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: NumberFormat	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: NumberFormat
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', NumberFormat, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 397, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_DeleteNumberFormat
  			LOGICAL*2 FUNCTION $Workbook_ExclusiveAccess($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_ExclusiveAccess
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				$$STATUS = AUTOINVOKE($OBJECT, 1168, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_ExclusiveAccess = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_ExclusiveAccess
  			SUBROUTINE $Workbook_FollowHyperlink($OBJECT, Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_FollowHyperlink
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Address	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Address
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SubAddress	
				!DEC$ ATTRIBUTES REFERENCE	:: SubAddress
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: NewWindow	
				!DEC$ ATTRIBUTES REFERENCE	:: NewWindow
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AddHistory	
				!DEC$ ATTRIBUTES REFERENCE	:: AddHistory
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ExtraInfo	
				!DEC$ ATTRIBUTES REFERENCE	:: ExtraInfo
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Method	
				!DEC$ ATTRIBUTES REFERENCE	:: Method
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HeaderInfo	
				!DEC$ ATTRIBUTES REFERENCE	:: HeaderInfo
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Address, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(SubAddress)) CALL AUTOADDARG(invokeargs, '$ARG2', SubAddress, AUTO_ARG_IN)
				IF (PRESENT(NewWindow)) CALL AUTOADDARG(invokeargs, '$ARG3', NewWindow, AUTO_ARG_IN)
				IF (PRESENT(AddHistory)) CALL AUTOADDARG(invokeargs, '$ARG4', AddHistory, AUTO_ARG_IN)
				IF (PRESENT(ExtraInfo)) CALL AUTOADDARG(invokeargs, '$ARG5', ExtraInfo, AUTO_ARG_IN)
				IF (PRESENT(Method)) CALL AUTOADDARG(invokeargs, '$ARG6', Method, AUTO_ARG_IN)
				IF (PRESENT(HeaderInfo)) CALL AUTOADDARG(invokeargs, '$ARG7', HeaderInfo, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1470, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_FollowHyperlink
  			SUBROUTINE $Workbook_ForwardMailer($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_ForwardMailer
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 973, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_ForwardMailer
  			CHARACTER*(2048) FUNCTION $Workbook_Get_CodeName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Get_CodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_CodeName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -2147418112, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_Get_CodeName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_Get_CodeName
  			LOGICAL*2 FUNCTION $Workbook_GetAcceptLabelsInFormulas($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetAcceptLabelsInFormulas
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AcceptLabelsInFormulas', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1441, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetAcceptLabelsInFormulas = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetAcceptLabelsInFormulas
  			!$Workbook_GetActiveChart return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetActiveChart($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetActiveChart
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveChart', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 183, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetActiveChart = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetActiveChart
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetActiveSheet($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetActiveSheet
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ActiveSheet', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 307, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetActiveSheet = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetActiveSheet
  			!$Workbook_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetApplication
  			CHARACTER*(2048) FUNCTION $Workbook_GetAuthor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetAuthor
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Author', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 574, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetAuthor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetAuthor
  			INTEGER*4 FUNCTION $Workbook_GetAutoUpdateFrequency($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetAutoUpdateFrequency
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoUpdateFrequency', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1442, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetAutoUpdateFrequency = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetAutoUpdateFrequency
  			LOGICAL*2 FUNCTION $Workbook_GetAutoUpdateSaveChanges($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetAutoUpdateSaveChanges
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoUpdateSaveChanges', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1443, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetAutoUpdateSaveChanges = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetAutoUpdateSaveChanges
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetBuiltinDocumentProperties($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetBuiltinDocumentProperties
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'BuiltinDocumentProperties', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1176, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetBuiltinDocumentProperties = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetBuiltinDocumentProperties
  			INTEGER*4 FUNCTION $Workbook_GetChangeHistoryDuration($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetChangeHistoryDuration
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ChangeHistoryDuration', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1444, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetChangeHistoryDuration = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetChangeHistoryDuration
  			!$Workbook_GetCharts return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetCharts($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetCharts
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Charts', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 121, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetCharts = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetCharts
  			CHARACTER*(2048) FUNCTION $Workbook_GetCodeName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetCodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CodeName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1373, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetCodeName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetCodeName
  			FUNCTION $Workbook_GetColors($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetColors
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Workbook_GetColors
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Colors', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 286, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetColors = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetColors
  			!$Workbook_GetCommandBars return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetCommandBars($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetCommandBars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CommandBars', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1439, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetCommandBars = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetCommandBars
  			CHARACTER*(2048) FUNCTION $Workbook_GetComments($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetComments
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Comments', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 575, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetComments = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetComments
  			INTEGER*4 FUNCTION $Workbook_GetConflictResolution($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetConflictResolution
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ConflictResolution', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1175, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetConflictResolution = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetConflictResolution
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetContainer($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetContainer
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Container', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1190, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetContainer = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetContainer
  			LOGICAL*2 FUNCTION $Workbook_GetCreateBackup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetCreateBackup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CreateBackup', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 287, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetCreateBackup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetCreateBackup
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetCreator
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetCustomDocumentProperties($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetCustomDocumentProperties
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CustomDocumentProperties', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1177, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetCustomDocumentProperties = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetCustomDocumentProperties
  			!$Workbook_GetCustomViews return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetCustomViews($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetCustomViews
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CustomViews', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1456, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetCustomViews = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetCustomViews
  			LOGICAL*2 FUNCTION $Workbook_GetDate1904($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetDate1904
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Date1904', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 403, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetDate1904 = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetDate1904
  			!$Workbook_GetDialogSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetDialogSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetDialogSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DialogSheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 764, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetDialogSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetDialogSheets
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetDisplayDrawingObjects($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetDisplayDrawingObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayDrawingObjects', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 404, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetDisplayDrawingObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetDisplayDrawingObjects
  			!$Workbook_GetExcel4IntlMacroSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetExcel4IntlMacroSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetExcel4IntlMacroSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Excel4IntlMacroSheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 581, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetExcel4IntlMacroSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetExcel4IntlMacroSheets
  			!$Workbook_GetExcel4MacroSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetExcel4MacroSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetExcel4MacroSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Excel4MacroSheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 579, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetExcel4MacroSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetExcel4MacroSheets
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetFileFormat($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetFileFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileFormat', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 288, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetFileFormat = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetFileFormat
  			CHARACTER*(2048) FUNCTION $Workbook_GetFullName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetFullName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FullName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 289, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetFullName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetFullName
  			LOGICAL*2 FUNCTION $Workbook_GetHasMailer($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetHasMailer
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasMailer', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 976, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetHasMailer = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetHasMailer
  			LOGICAL*2 FUNCTION $Workbook_GetHasPassword($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetHasPassword
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasPassword', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 290, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetHasPassword = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetHasPassword
  			LOGICAL*2 FUNCTION $Workbook_GetHasRoutingSlip($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetHasRoutingSlip
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasRoutingSlip', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 950, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetHasRoutingSlip = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetHasRoutingSlip
  			LOGICAL*2 FUNCTION $Workbook_GetHighlightChangesOnScreen($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetHighlightChangesOnScreen
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HighlightChangesOnScreen', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1461, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetHighlightChangesOnScreen = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetHighlightChangesOnScreen
  			LOGICAL*2 FUNCTION $Workbook_GetIsAddin($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetIsAddin
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'IsAddin', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1445, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetIsAddin = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetIsAddin
  			LOGICAL*2 FUNCTION $Workbook_GetIsInplace($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetIsInplace
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'IsInplace', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1780, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetIsInplace = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetIsInplace
  			LOGICAL*2 FUNCTION $Workbook_GetKeepChangeHistory($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetKeepChangeHistory
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'KeepChangeHistory', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1462, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetKeepChangeHistory = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetKeepChangeHistory
  			CHARACTER*(2048) FUNCTION $Workbook_GetKeywords($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetKeywords
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Keywords', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 577, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetKeywords = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetKeywords
  			LOGICAL*2 FUNCTION $Workbook_GetListChangesOnNewSheet($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetListChangesOnNewSheet
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ListChangesOnNewSheet', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1463, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetListChangesOnNewSheet = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetListChangesOnNewSheet
  			!$Workbook_GetMailer return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetMailer($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetMailer
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Mailer', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 979, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetMailer = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetMailer
  			!$Workbook_GetModules return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetModules($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetModules
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Modules', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 582, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetModules = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetModules
  			LOGICAL*2 FUNCTION $Workbook_GetMultiUserEditing($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetMultiUserEditing
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MultiUserEditing', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1169, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetMultiUserEditing = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetMultiUserEditing
  			CHARACTER*(2048) FUNCTION $Workbook_GetName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetName
  			!$Workbook_GetNames return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetNames($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Names', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 442, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetNames = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetNames
  			CHARACTER*(2048) FUNCTION $Workbook_GetOnSave($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetOnSave
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSave', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1178, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetOnSave = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetOnSave
  			CHARACTER*(2048) FUNCTION $Workbook_GetOnSheetActivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetOnSheetActivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetOnSheetActivate
  			CHARACTER*(2048) FUNCTION $Workbook_GetOnSheetDeactivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetOnSheetDeactivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetOnSheetDeactivate
  			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetParent
  			CHARACTER*(2048) FUNCTION $Workbook_GetPath($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetPath
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Path', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 291, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetPath = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetPath
  			LOGICAL*2 FUNCTION $Workbook_GetPersonalViewListSettings($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetPersonalViewListSettings
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PersonalViewListSettings', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1447, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetPersonalViewListSettings = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetPersonalViewListSettings
  			LOGICAL*2 FUNCTION $Workbook_GetPersonalViewPrintSettings($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetPersonalViewPrintSettings
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PersonalViewPrintSettings', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1448, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetPersonalViewPrintSettings = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetPersonalViewPrintSettings
  			LOGICAL*2 FUNCTION $Workbook_GetPrecisionAsDisplayed($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetPrecisionAsDisplayed
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PrecisionAsDisplayed', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 405, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetPrecisionAsDisplayed = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetPrecisionAsDisplayed
  			LOGICAL*2 FUNCTION $Workbook_GetProtectStructure($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetProtectStructure
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectStructure', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 588, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetProtectStructure = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetProtectStructure
  			LOGICAL*2 FUNCTION $Workbook_GetProtectWindows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetProtectWindows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectWindows', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 295, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetProtectWindows = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetProtectWindows
  			LOGICAL*2 FUNCTION $Workbook_GetReadOnly($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetReadOnly
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ReadOnly', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 296, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetReadOnly = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetReadOnly
  			LOGICAL*2 FUNCTION $Workbook_GetReadOnlyRecommended($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetReadOnlyRecommended
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ReadOnlyRecommended', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 297, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetReadOnlyRecommended = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetReadOnlyRecommended
  			INTEGER*4 FUNCTION $Workbook_GetRevisionNumber($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetRevisionNumber
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RevisionNumber', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1172, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetRevisionNumber = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetRevisionNumber
  			LOGICAL*2 FUNCTION $Workbook_GetRouted($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetRouted
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Routed', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 951, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetRouted = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetRouted
  			!$Workbook_GetRoutingSlip return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetRoutingSlip($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetRoutingSlip
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RoutingSlip', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 949, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetRoutingSlip = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetRoutingSlip
  			LOGICAL*2 FUNCTION $Workbook_GetSaved($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetSaved
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Saved', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 298, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetSaved = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetSaved
  			LOGICAL*2 FUNCTION $Workbook_GetSaveLinkValues($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetSaveLinkValues
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SaveLinkValues', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 406, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetSaveLinkValues = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetSaveLinkValues
  			!$Workbook_GetSheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetSheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Sheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 485, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetSheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetSheets
  			LOGICAL*2 FUNCTION $Workbook_GetShowConflictHistory($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetShowConflictHistory
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowConflictHistory', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1171, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetShowConflictHistory = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetShowConflictHistory
  			!$Workbook_GetStyles return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetStyles($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetStyles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Styles', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 493, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetStyles = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetStyles
  			CHARACTER*(2048) FUNCTION $Workbook_GetSubject($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetSubject
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Subject', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 953, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetSubject = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetSubject
  			LOGICAL*2 FUNCTION $Workbook_GetTemplateRemoveExtData($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetTemplateRemoveExtData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TemplateRemoveExtData', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1457, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetTemplateRemoveExtData = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetTemplateRemoveExtData
  			CHARACTER*(2048) FUNCTION $Workbook_GetTitle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetTitle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Title', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 199, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetTitle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetTitle
  			LOGICAL*2 FUNCTION $Workbook_GetUpdateRemoteReferences($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetUpdateRemoteReferences
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UpdateRemoteReferences', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 411, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetUpdateRemoteReferences = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetUpdateRemoteReferences
  			LOGICAL*2 FUNCTION $Workbook_GetUserControl($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetUserControl
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UserControl', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1210, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetUserControl = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetUserControl
  			FUNCTION $Workbook_GetUserStatus($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetUserStatus
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Workbook_GetUserStatus
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UserStatus', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1173, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetUserStatus = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetUserStatus
  			!$Workbook_GetVBProject return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetVBProject($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetVBProject
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'VBProject', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1469, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetVBProject = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetVBProject
  			!$Workbook_GetWindows return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetWindows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetWindows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Windows', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 430, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetWindows = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetWindows
  			!$Workbook_GetWorksheets return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_GetWorksheets($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetWorksheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Worksheets', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 494, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetWorksheets = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetWorksheets
  			LOGICAL*2 FUNCTION $Workbook_GetWriteReserved($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetWriteReserved
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WriteReserved', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 299, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetWriteReserved = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetWriteReserved
  			CHARACTER*(2048) FUNCTION $Workbook_GetWriteReservedBy($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_GetWriteReservedBy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WriteReservedBy', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 300, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_GetWriteReservedBy = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_GetWriteReservedBy
  			SUBROUTINE $Workbook_HighlightChangesOptions($OBJECT, When, Who, Where, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_HighlightChangesOptions
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: When	
				!DEC$ ATTRIBUTES REFERENCE	:: When
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Who	
				!DEC$ ATTRIBUTES REFERENCE	:: Who
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Where	
				!DEC$ ATTRIBUTES REFERENCE	:: Where
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(When)) CALL AUTOADDARG(invokeargs, '$ARG1', When, AUTO_ARG_IN)
				IF (PRESENT(Who)) CALL AUTOADDARG(invokeargs, '$ARG2', Who, AUTO_ARG_IN)
				IF (PRESENT(Where)) CALL AUTOADDARG(invokeargs, '$ARG3', Where, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1458, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_HighlightChangesOptions
  			FUNCTION $Workbook_LinkInfo($OBJECT, Name, LinkInfo, Type, EditionRef, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_LinkInfo
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Name	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: LinkInfo	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: LinkInfo
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: EditionRef	
				!DEC$ ATTRIBUTES REFERENCE	:: EditionRef
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Workbook_LinkInfo
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG2', LinkInfo)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG3', Type, AUTO_ARG_IN)
				IF (PRESENT(EditionRef)) CALL AUTOADDARG(invokeargs, '$ARG4', EditionRef, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 807, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_LinkInfo = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_LinkInfo
  			FUNCTION $Workbook_LinkSources($OBJECT, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_LinkSources
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Workbook_LinkSources
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG1', Type, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 808, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_LinkSources = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_LinkSources
  			SUBROUTINE $Workbook_MergeWorkbook($OBJECT, Filename, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_MergeWorkbook
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Filename	
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1446, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_MergeWorkbook
  			!$Workbook_NewWindow return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_NewWindow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_NewWindow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOINVOKE($OBJECT, 280, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_NewWindow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_NewWindow
  			SUBROUTINE $Workbook_OpenLinks($OBJECT, Name, ReadOnly, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_OpenLinks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Name	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadOnly	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadOnly
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(ReadOnly)) CALL AUTOADDARG(invokeargs, '$ARG2', ReadOnly, AUTO_ARG_IN)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG3', Type, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 803, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_OpenLinks
  			!$Workbook_PivotCaches return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Workbook_PivotCaches($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_PivotCaches
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOINVOKE($OBJECT, 1449, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Workbook_PivotCaches = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Workbook_PivotCaches
  			SUBROUTINE $Workbook_PivotTableWizard($OBJECT, SourceType, SourceData, TableDestination, TableName, RowGrand, ColumnGrand, SaveData, HasAutoFormat, AutoPage, Reserved, BackgroundQuery, OptimizeCache, PageFieldOrder, PageFieldWrapCount, ReadData, Connection, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_PivotTableWizard
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SourceType	
				!DEC$ ATTRIBUTES REFERENCE	:: SourceType
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SourceData	
				!DEC$ ATTRIBUTES REFERENCE	:: SourceData
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TableDestination	
				!DEC$ ATTRIBUTES REFERENCE	:: TableDestination
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TableName	
				!DEC$ ATTRIBUTES REFERENCE	:: TableName
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowGrand	
				!DEC$ ATTRIBUTES REFERENCE	:: RowGrand
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnGrand	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnGrand
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SaveData	
				!DEC$ ATTRIBUTES REFERENCE	:: SaveData
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HasAutoFormat	
				!DEC$ ATTRIBUTES REFERENCE	:: HasAutoFormat
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AutoPage	
				!DEC$ ATTRIBUTES REFERENCE	:: AutoPage
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Reserved	
				!DEC$ ATTRIBUTES REFERENCE	:: Reserved
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: BackgroundQuery	
				!DEC$ ATTRIBUTES REFERENCE	:: BackgroundQuery
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: OptimizeCache	
				!DEC$ ATTRIBUTES REFERENCE	:: OptimizeCache
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PageFieldOrder	
				!DEC$ ATTRIBUTES REFERENCE	:: PageFieldOrder
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PageFieldWrapCount	
				!DEC$ ATTRIBUTES REFERENCE	:: PageFieldWrapCount
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadData	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadData
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Connection	
				!DEC$ ATTRIBUTES REFERENCE	:: Connection
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(SourceType)) CALL AUTOADDARG(invokeargs, '$ARG1', SourceType, AUTO_ARG_IN)
				IF (PRESENT(SourceData)) CALL AUTOADDARG(invokeargs, '$ARG2', SourceData, AUTO_ARG_IN)
				IF (PRESENT(TableDestination)) CALL AUTOADDARG(invokeargs, '$ARG3', TableDestination, AUTO_ARG_IN)
				IF (PRESENT(TableName)) CALL AUTOADDARG(invokeargs, '$ARG4', TableName, AUTO_ARG_IN)
				IF (PRESENT(RowGrand)) CALL AUTOADDARG(invokeargs, '$ARG5', RowGrand, AUTO_ARG_IN)
				IF (PRESENT(ColumnGrand)) CALL AUTOADDARG(invokeargs, '$ARG6', ColumnGrand, AUTO_ARG_IN)
				IF (PRESENT(SaveData)) CALL AUTOADDARG(invokeargs, '$ARG7', SaveData, AUTO_ARG_IN)
				IF (PRESENT(HasAutoFormat)) CALL AUTOADDARG(invokeargs, '$ARG8', HasAutoFormat, AUTO_ARG_IN)
				IF (PRESENT(AutoPage)) CALL AUTOADDARG(invokeargs, '$ARG9', AutoPage, AUTO_ARG_IN)
				IF (PRESENT(Reserved)) CALL AUTOADDARG(invokeargs, '$ARG10', Reserved, AUTO_ARG_IN)
				IF (PRESENT(BackgroundQuery)) CALL AUTOADDARG(invokeargs, '$ARG11', BackgroundQuery, AUTO_ARG_IN)
				IF (PRESENT(OptimizeCache)) CALL AUTOADDARG(invokeargs, '$ARG12', OptimizeCache, AUTO_ARG_IN)
				IF (PRESENT(PageFieldOrder)) CALL AUTOADDARG(invokeargs, '$ARG13', PageFieldOrder, AUTO_ARG_IN)
				IF (PRESENT(PageFieldWrapCount)) CALL AUTOADDARG(invokeargs, '$ARG14', PageFieldWrapCount, AUTO_ARG_IN)
				IF (PRESENT(ReadData)) CALL AUTOADDARG(invokeargs, '$ARG15', ReadData, AUTO_ARG_IN)
				IF (PRESENT(Connection)) CALL AUTOADDARG(invokeargs, '$ARG16', Connection, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 684, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_PivotTableWizard
  			SUBROUTINE $Workbook_Post($OBJECT, DestName, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Post
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: DestName	
				!DEC$ ATTRIBUTES REFERENCE	:: DestName
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(DestName)) CALL AUTOADDARG(invokeargs, '$ARG1', DestName, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1166, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Post
  			SUBROUTINE $Workbook_PrintOut($OBJECT, From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_PrintOut
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: From	
				!DEC$ ATTRIBUTES REFERENCE	:: From
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: To	
				!DEC$ ATTRIBUTES REFERENCE	:: To
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Copies	
				!DEC$ ATTRIBUTES REFERENCE	:: Copies
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Preview	
				!DEC$ ATTRIBUTES REFERENCE	:: Preview
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ActivePrinter	
				!DEC$ ATTRIBUTES REFERENCE	:: ActivePrinter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PrintToFile	
				!DEC$ ATTRIBUTES REFERENCE	:: PrintToFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Collate	
				!DEC$ ATTRIBUTES REFERENCE	:: Collate
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(From)) CALL AUTOADDARG(invokeargs, '$ARG1', From, AUTO_ARG_IN)
				IF (PRESENT(To)) CALL AUTOADDARG(invokeargs, '$ARG2', To, AUTO_ARG_IN)
				IF (PRESENT(Copies)) CALL AUTOADDARG(invokeargs, '$ARG3', Copies, AUTO_ARG_IN)
				IF (PRESENT(Preview)) CALL AUTOADDARG(invokeargs, '$ARG4', Preview, AUTO_ARG_IN)
				IF (PRESENT(ActivePrinter)) CALL AUTOADDARG(invokeargs, '$ARG5', ActivePrinter, AUTO_ARG_IN)
				IF (PRESENT(PrintToFile)) CALL AUTOADDARG(invokeargs, '$ARG6', PrintToFile, AUTO_ARG_IN)
				IF (PRESENT(Collate)) CALL AUTOADDARG(invokeargs, '$ARG7', Collate, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 905, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_PrintOut
  			SUBROUTINE $Workbook_PrintPreview($OBJECT, EnableChanges, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_PrintPreview
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: EnableChanges	
				!DEC$ ATTRIBUTES REFERENCE	:: EnableChanges
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(EnableChanges)) CALL AUTOADDARG(invokeargs, '$ARG1', EnableChanges, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 281, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_PrintPreview
  			SUBROUTINE $Workbook_Protect($OBJECT, Password, Structure, Windows, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Protect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Structure	
				!DEC$ ATTRIBUTES REFERENCE	:: Structure
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Windows	
				!DEC$ ATTRIBUTES REFERENCE	:: Windows
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG1', Password, AUTO_ARG_IN)
				IF (PRESENT(Structure)) CALL AUTOADDARG(invokeargs, '$ARG2', Structure, AUTO_ARG_IN)
				IF (PRESENT(Windows)) CALL AUTOADDARG(invokeargs, '$ARG3', Windows, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 282, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Protect
  			SUBROUTINE $Workbook_ProtectSharing($OBJECT, Filename, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_ProtectSharing
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Filename	
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: WriteResPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: WriteResPassword
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadOnlyRecommended	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadOnlyRecommended
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CreateBackup	
				!DEC$ ATTRIBUTES REFERENCE	:: CreateBackup
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SharingPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: SharingPassword
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Filename)) CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN)
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG2', Password, AUTO_ARG_IN)
				IF (PRESENT(WriteResPassword)) CALL AUTOADDARG(invokeargs, '$ARG3', WriteResPassword, AUTO_ARG_IN)
				IF (PRESENT(ReadOnlyRecommended)) CALL AUTOADDARG(invokeargs, '$ARG4', ReadOnlyRecommended, AUTO_ARG_IN)
				IF (PRESENT(CreateBackup)) CALL AUTOADDARG(invokeargs, '$ARG5', CreateBackup, AUTO_ARG_IN)
				IF (PRESENT(SharingPassword)) CALL AUTOADDARG(invokeargs, '$ARG6', SharingPassword, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1450, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_ProtectSharing
  			SUBROUTINE $Workbook_PurgeChangeHistoryNow($OBJECT, Days, SharingPassword, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_PurgeChangeHistoryNow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Days	
				!DEC$ ATTRIBUTES REFERENCE	:: Days
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SharingPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: SharingPassword
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Days)
				IF (PRESENT(SharingPassword)) CALL AUTOADDARG(invokeargs, '$ARG2', SharingPassword, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1464, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_PurgeChangeHistoryNow
  			SUBROUTINE $Workbook_RefreshAll($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_RefreshAll
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1452, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_RefreshAll
  			SUBROUTINE $Workbook_RejectAllChanges($OBJECT, When, Who, Where, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_RejectAllChanges
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: When	
				!DEC$ ATTRIBUTES REFERENCE	:: When
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Who	
				!DEC$ ATTRIBUTES REFERENCE	:: Who
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Where	
				!DEC$ ATTRIBUTES REFERENCE	:: Where
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(When)) CALL AUTOADDARG(invokeargs, '$ARG1', When, AUTO_ARG_IN)
				IF (PRESENT(Who)) CALL AUTOADDARG(invokeargs, '$ARG2', Who, AUTO_ARG_IN)
				IF (PRESENT(Where)) CALL AUTOADDARG(invokeargs, '$ARG3', Where, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1467, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_RejectAllChanges
  			SUBROUTINE $Workbook_RemoveUser($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_RemoveUser
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Index)
				$$STATUS = AUTOINVOKE($OBJECT, 1453, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_RemoveUser
  			SUBROUTINE $Workbook_Reply($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Reply
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 977, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Reply
  			SUBROUTINE $Workbook_ReplyAll($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_ReplyAll
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 978, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_ReplyAll
  			SUBROUTINE $Workbook_ResetColors($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_ResetColors
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1468, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_ResetColors
  			SUBROUTINE $Workbook_Route($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Route
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 946, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Route
  			SUBROUTINE $Workbook_RunAutoMacros($OBJECT, Which, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_RunAutoMacros
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Which	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Which
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Which)
				$$STATUS = AUTOINVOKE($OBJECT, 634, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_RunAutoMacros
  			SUBROUTINE $Workbook_Save($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Save
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 283, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Save
  			SUBROUTINE $Workbook_SaveAs($OBJECT, Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SaveAs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Filename	
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FileFormat	
				!DEC$ ATTRIBUTES REFERENCE	:: FileFormat
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: WriteResPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: WriteResPassword
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadOnlyRecommended	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadOnlyRecommended
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CreateBackup	
				!DEC$ ATTRIBUTES REFERENCE	:: CreateBackup
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: AccessMode	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: AccessMode
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ConflictResolution	
				!DEC$ ATTRIBUTES REFERENCE	:: ConflictResolution
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AddToMru	
				!DEC$ ATTRIBUTES REFERENCE	:: AddToMru
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TextCodepage	
				!DEC$ ATTRIBUTES REFERENCE	:: TextCodepage
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TextVisualLayout	
				!DEC$ ATTRIBUTES REFERENCE	:: TextVisualLayout
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Filename)) CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN)
				IF (PRESENT(FileFormat)) CALL AUTOADDARG(invokeargs, '$ARG2', FileFormat, AUTO_ARG_IN)
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG3', Password, AUTO_ARG_IN)
				IF (PRESENT(WriteResPassword)) CALL AUTOADDARG(invokeargs, '$ARG4', WriteResPassword, AUTO_ARG_IN)
				IF (PRESENT(ReadOnlyRecommended)) CALL AUTOADDARG(invokeargs, '$ARG5', ReadOnlyRecommended, AUTO_ARG_IN)
				IF (PRESENT(CreateBackup)) CALL AUTOADDARG(invokeargs, '$ARG6', CreateBackup, AUTO_ARG_IN)
				IF (PRESENT(AccessMode)) CALL AUTOADDARG(invokeargs, '$ARG7', AccessMode)
				IF (PRESENT(ConflictResolution)) CALL AUTOADDARG(invokeargs, '$ARG8', ConflictResolution, AUTO_ARG_IN)
				IF (PRESENT(AddToMru)) CALL AUTOADDARG(invokeargs, '$ARG9', AddToMru, AUTO_ARG_IN)
				IF (PRESENT(TextCodepage)) CALL AUTOADDARG(invokeargs, '$ARG10', TextCodepage, AUTO_ARG_IN)
				IF (PRESENT(TextVisualLayout)) CALL AUTOADDARG(invokeargs, '$ARG11', TextVisualLayout, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 284, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SaveAs
  			SUBROUTINE $Workbook_SaveCopyAs($OBJECT, Filename, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SaveCopyAs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Filename	
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Filename)) CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 175, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SaveCopyAs
  			SUBROUTINE $Workbook_SendMail($OBJECT, Recipients, Subject, ReturnReceipt, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SendMail
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Recipients	
				!DEC$ ATTRIBUTES REFERENCE	:: Recipients
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Subject	
				!DEC$ ATTRIBUTES REFERENCE	:: Subject
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReturnReceipt	
				!DEC$ ATTRIBUTES REFERENCE	:: ReturnReceipt
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Recipients, AUTO_ARG_IN)
				IF (PRESENT(Subject)) CALL AUTOADDARG(invokeargs, '$ARG2', Subject, AUTO_ARG_IN)
				IF (PRESENT(ReturnReceipt)) CALL AUTOADDARG(invokeargs, '$ARG3', ReturnReceipt, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 947, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SendMail
  			SUBROUTINE $Workbook_SendMailer($OBJECT, FileFormat, Priority, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SendMailer
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: FileFormat	
				!DEC$ ATTRIBUTES REFERENCE	:: FileFormat
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Priority	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Priority
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', FileFormat, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG2', Priority)
				$$STATUS = AUTOINVOKE($OBJECT, 980, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SendMailer
  			SUBROUTINE $Workbook_Set_CodeName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Set_CodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_CodeName', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, -2147418112, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Set_CodeName
  			SUBROUTINE $Workbook_SetAcceptLabelsInFormulas($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetAcceptLabelsInFormulas
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AcceptLabelsInFormulas', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1441, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetAcceptLabelsInFormulas
  			SUBROUTINE $Workbook_SetAuthor($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetAuthor
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Author', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 574, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetAuthor
  			SUBROUTINE $Workbook_SetAutoUpdateFrequency($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetAutoUpdateFrequency
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoUpdateFrequency', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1442, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetAutoUpdateFrequency
  			SUBROUTINE $Workbook_SetAutoUpdateSaveChanges($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetAutoUpdateSaveChanges
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoUpdateSaveChanges', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1443, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetAutoUpdateSaveChanges
  			SUBROUTINE $Workbook_SetChangeHistoryDuration($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetChangeHistoryDuration
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ChangeHistoryDuration', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1444, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetChangeHistoryDuration
  			SUBROUTINE $Workbook_SetColors($OBJECT, Index, $ARG2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetColors
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				TYPE (VARIANT), INTENT(IN)	:: $ARG2	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Colors', $ARG2, AUTO_ARG_IN)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 286, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetColors
  			SUBROUTINE $Workbook_SetComments($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetComments
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Comments', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 575, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetComments
  			SUBROUTINE $Workbook_SetConflictResolution($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetConflictResolution
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ConflictResolution', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1175, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetConflictResolution
  			SUBROUTINE $Workbook_SetDate1904($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetDate1904
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Date1904', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 403, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetDate1904
  			SUBROUTINE $Workbook_SetDisplayDrawingObjects($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetDisplayDrawingObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayDrawingObjects', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 404, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetDisplayDrawingObjects
  			SUBROUTINE $Workbook_SetHasMailer($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetHasMailer
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasMailer', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 976, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetHasMailer
  			SUBROUTINE $Workbook_SetHasRoutingSlip($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetHasRoutingSlip
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasRoutingSlip', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 950, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetHasRoutingSlip
  			SUBROUTINE $Workbook_SetHighlightChangesOnScreen($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetHighlightChangesOnScreen
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HighlightChangesOnScreen', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1461, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetHighlightChangesOnScreen
  			SUBROUTINE $Workbook_SetIsAddin($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetIsAddin
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'IsAddin', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1445, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetIsAddin
  			SUBROUTINE $Workbook_SetKeepChangeHistory($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetKeepChangeHistory
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'KeepChangeHistory', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1462, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetKeepChangeHistory
  			SUBROUTINE $Workbook_SetKeywords($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetKeywords
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Keywords', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 577, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetKeywords
  			SUBROUTINE $Workbook_SetLinkOnData($OBJECT, Name, Procedure, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetLinkOnData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Name	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Procedure	
				!DEC$ ATTRIBUTES REFERENCE	:: Procedure
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(Procedure)) CALL AUTOADDARG(invokeargs, '$ARG2', Procedure, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 809, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetLinkOnData
  			SUBROUTINE $Workbook_SetListChangesOnNewSheet($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetListChangesOnNewSheet
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ListChangesOnNewSheet', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1463, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetListChangesOnNewSheet
  			SUBROUTINE $Workbook_SetOnSave($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetOnSave
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSave', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1178, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetOnSave
  			SUBROUTINE $Workbook_SetOnSheetActivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetOnSheetActivate
  			SUBROUTINE $Workbook_SetOnSheetDeactivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetOnSheetDeactivate
  			SUBROUTINE $Workbook_SetPersonalViewListSettings($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetPersonalViewListSettings
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PersonalViewListSettings', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1447, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetPersonalViewListSettings
  			SUBROUTINE $Workbook_SetPersonalViewPrintSettings($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetPersonalViewPrintSettings
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PersonalViewPrintSettings', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1448, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetPersonalViewPrintSettings
  			SUBROUTINE $Workbook_SetPrecisionAsDisplayed($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetPrecisionAsDisplayed
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PrecisionAsDisplayed', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 405, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetPrecisionAsDisplayed
  			SUBROUTINE $Workbook_SetSaved($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetSaved
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Saved', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 298, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetSaved
  			SUBROUTINE $Workbook_SetSaveLinkValues($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetSaveLinkValues
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SaveLinkValues', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 406, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetSaveLinkValues
  			SUBROUTINE $Workbook_SetShowConflictHistory($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetShowConflictHistory
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowConflictHistory', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1171, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetShowConflictHistory
  			SUBROUTINE $Workbook_SetSubject($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetSubject
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Subject', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 953, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetSubject
  			SUBROUTINE $Workbook_SetTemplateRemoveExtData($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetTemplateRemoveExtData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TemplateRemoveExtData', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1457, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetTemplateRemoveExtData
  			SUBROUTINE $Workbook_SetTitle($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetTitle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Title', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 199, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetTitle
  			SUBROUTINE $Workbook_SetUpdateRemoteReferences($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetUpdateRemoteReferences
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UpdateRemoteReferences', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 411, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetUpdateRemoteReferences
  			SUBROUTINE $Workbook_SetUserControl($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_SetUserControl
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UserControl', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1210, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_SetUserControl
  			SUBROUTINE $Workbook_Unprotect($OBJECT, Password, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_Unprotect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG1', Password, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 285, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_Unprotect
  			SUBROUTINE $Workbook_UnprotectSharing($OBJECT, SharingPassword, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_UnprotectSharing
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SharingPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: SharingPassword
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(SharingPassword)) CALL AUTOADDARG(invokeargs, '$ARG1', SharingPassword, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1455, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_UnprotectSharing
  			SUBROUTINE $Workbook_UpdateFromFile($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_UpdateFromFile
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 995, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_UpdateFromFile
  			SUBROUTINE $Workbook_UpdateLink($OBJECT, Name, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Workbook_UpdateLink
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Name)) CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG2', Type, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 804, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Workbook_UpdateLink
  			FUNCTION $Worksheet__Evaluate($OBJECT, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet__Evaluate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Worksheet__Evaluate
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, -5, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet__Evaluate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet__Evaluate
  			SUBROUTINE $Worksheet_Activate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Activate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 304, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Activate
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Arcs($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Arcs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 760, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Arcs = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Arcs
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Buttons($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Buttons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 557, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Buttons = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Buttons
  			SUBROUTINE $Worksheet_Calculate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Calculate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 279, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Calculate
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_ChartObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ChartObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1060, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_ChartObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_ChartObjects
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_CheckBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_CheckBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 824, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_CheckBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_CheckBoxes
  			SUBROUTINE $Worksheet_CheckSpelling($OBJECT, CustomDictionary, IgnoreUppercase, AlwaysSuggest, IgnoreInitialAlefHamza, IgnoreFinalYaa, SpellScript, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_CheckSpelling
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CustomDictionary	
				!DEC$ ATTRIBUTES REFERENCE	:: CustomDictionary
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreUppercase	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreUppercase
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AlwaysSuggest	
				!DEC$ ATTRIBUTES REFERENCE	:: AlwaysSuggest
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreInitialAlefHamza	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreInitialAlefHamza
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreFinalYaa	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreFinalYaa
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SpellScript	
				!DEC$ ATTRIBUTES REFERENCE	:: SpellScript
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(CustomDictionary)) CALL AUTOADDARG(invokeargs, '$ARG1', CustomDictionary, AUTO_ARG_IN)
				IF (PRESENT(IgnoreUppercase)) CALL AUTOADDARG(invokeargs, '$ARG2', IgnoreUppercase, AUTO_ARG_IN)
				IF (PRESENT(AlwaysSuggest)) CALL AUTOADDARG(invokeargs, '$ARG3', AlwaysSuggest, AUTO_ARG_IN)
				IF (PRESENT(IgnoreInitialAlefHamza)) CALL AUTOADDARG(invokeargs, '$ARG4', IgnoreInitialAlefHamza, AUTO_ARG_IN)
				IF (PRESENT(IgnoreFinalYaa)) CALL AUTOADDARG(invokeargs, '$ARG5', IgnoreFinalYaa, AUTO_ARG_IN)
				IF (PRESENT(SpellScript)) CALL AUTOADDARG(invokeargs, '$ARG6', SpellScript, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 505, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_CheckSpelling
  			SUBROUTINE $Worksheet_CircleInvalid($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_CircleInvalid
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1437, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_CircleInvalid
  			SUBROUTINE $Worksheet_ClearArrows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ClearArrows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 970, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_ClearArrows
  			SUBROUTINE $Worksheet_ClearCircles($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ClearCircles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1436, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_ClearCircles
  			SUBROUTINE $Worksheet_Copy($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Copy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 551, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Copy
  			SUBROUTINE $Worksheet_Delete($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Delete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 117, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Delete
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_DrawingObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_DrawingObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 88, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_DrawingObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_DrawingObjects
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Drawings($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Drawings
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 772, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Drawings = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Drawings
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_DropDowns($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_DropDowns
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 836, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_DropDowns = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_DropDowns
  			FUNCTION $Worksheet_Evaluate($OBJECT, Name, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Evaluate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Worksheet_Evaluate
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Name, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Evaluate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Evaluate
  			CHARACTER*(2048) FUNCTION $Worksheet_Get_CodeName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Get_CodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_CodeName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -2147418112, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Get_CodeName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Get_CodeName
  			!$Worksheet_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetApplication
  			!$Worksheet_GetAutoFilter return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetAutoFilter($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetAutoFilter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoFilter', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 793, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetAutoFilter = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetAutoFilter
  			LOGICAL*2 FUNCTION $Worksheet_GetAutoFilterMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetAutoFilterMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoFilterMode', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 792, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetAutoFilterMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetAutoFilterMode
  			!$Worksheet_GetCells return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetCells($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Cells', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 238, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetCells = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetCells
  			!$Worksheet_GetCircularReference return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetCircularReference($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetCircularReference
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CircularReference', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1069, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetCircularReference = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetCircularReference
  			CHARACTER*(2048) FUNCTION $Worksheet_GetCodeName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetCodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CodeName', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1373, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetCodeName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetCodeName
  			!$Worksheet_GetColumns return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetColumns($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetColumns
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Columns', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 241, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetColumns = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetColumns
  			!$Worksheet_GetComments return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetComments($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetComments
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Comments', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 575, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetComments = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetComments
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetConsolidationFunction($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetConsolidationFunction
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ConsolidationFunction', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 789, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetConsolidationFunction = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetConsolidationFunction
  			FUNCTION $Worksheet_GetConsolidationOptions($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetConsolidationOptions
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Worksheet_GetConsolidationOptions
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ConsolidationOptions', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 790, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetConsolidationOptions = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetConsolidationOptions
  			FUNCTION $Worksheet_GetConsolidationSources($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetConsolidationSources
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) $Worksheet_GetConsolidationSources
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ConsolidationSources', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 791, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetConsolidationSources = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetConsolidationSources
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetCreator
  			LOGICAL*2 FUNCTION $Worksheet_GetDisplayAutomaticPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetDisplayAutomaticPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayAutomaticPageBreaks', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 643, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetDisplayAutomaticPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetDisplayAutomaticPageBreaks
  			LOGICAL*2 FUNCTION $Worksheet_GetDisplayPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetDisplayPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayPageBreaks', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1435, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetDisplayPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetDisplayPageBreaks
  			INTEGER*4 FUNCTION $Worksheet_GetDisplayRightToLeft($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetDisplayRightToLeft
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayRightToLeft', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 648, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetDisplayRightToLeft = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetDisplayRightToLeft
  			LOGICAL*2 FUNCTION $Worksheet_GetEnableAutoFilter($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetEnableAutoFilter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableAutoFilter', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1156, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetEnableAutoFilter = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetEnableAutoFilter
  			LOGICAL*2 FUNCTION $Worksheet_GetEnableCalculation($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetEnableCalculation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableCalculation', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1424, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetEnableCalculation = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetEnableCalculation
  			LOGICAL*2 FUNCTION $Worksheet_GetEnableOutlining($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetEnableOutlining
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableOutlining', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1157, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetEnableOutlining = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetEnableOutlining
  			LOGICAL*2 FUNCTION $Worksheet_GetEnablePivotTable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetEnablePivotTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnablePivotTable', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1158, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetEnablePivotTable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetEnablePivotTable
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetEnableSelection($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetEnableSelection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSelection', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1425, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetEnableSelection = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetEnableSelection
  			LOGICAL*2 FUNCTION $Worksheet_GetFilterMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetFilterMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FilterMode', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 800, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetFilterMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetFilterMode
  			!$Worksheet_GetHPageBreaks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetHPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetHPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HPageBreaks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1418, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetHPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetHPageBreaks
  			!$Worksheet_GetHyperlinks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetHyperlinks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetHyperlinks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Hyperlinks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1393, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetHyperlinks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetHyperlinks
  			INTEGER*4 FUNCTION $Worksheet_GetIndex($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetIndex
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Index', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 486, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetIndex = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetIndex
  			CHARACTER*(2048) FUNCTION $Worksheet_GetName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetName
  			!$Worksheet_GetNames return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetNames($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Names', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 442, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetNames = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetNames
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetNext($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetNext
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Next', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 502, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetNext = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetNext
  			CHARACTER*(2048) FUNCTION $Worksheet_GetOnCalculate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetOnCalculate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnCalculate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 625, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetOnCalculate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetOnCalculate
  			CHARACTER*(2048) FUNCTION $Worksheet_GetOnData($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetOnData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnData', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 629, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetOnData = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetOnData
  			CHARACTER*(2048) FUNCTION $Worksheet_GetOnDoubleClick($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetOnDoubleClick
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnDoubleClick', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 628, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetOnDoubleClick = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetOnDoubleClick
  			CHARACTER*(2048) FUNCTION $Worksheet_GetOnEntry($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetOnEntry
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnEntry', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 627, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetOnEntry = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetOnEntry
  			CHARACTER*(2048) FUNCTION $Worksheet_GetOnSheetActivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetOnSheetActivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetOnSheetActivate
  			CHARACTER*(2048) FUNCTION $Worksheet_GetOnSheetDeactivate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetOnSheetDeactivate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetOnSheetDeactivate
  			!$Worksheet_GetOutline return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetOutline($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetOutline
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Outline', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 102, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetOutline = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetOutline
  			!$Worksheet_GetPageSetup return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetPageSetup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetPageSetup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PageSetup', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 998, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetPageSetup = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetPageSetup
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetParent
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetPrevious($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetPrevious
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Previous', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 503, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetPrevious = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetPrevious
  			LOGICAL*2 FUNCTION $Worksheet_GetProtectContents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetProtectContents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectContents', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 292, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetProtectContents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetProtectContents
  			LOGICAL*2 FUNCTION $Worksheet_GetProtectDrawingObjects($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetProtectDrawingObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectDrawingObjects', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 293, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetProtectDrawingObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetProtectDrawingObjects
  			LOGICAL*2 FUNCTION $Worksheet_GetProtectionMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetProtectionMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectionMode', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1159, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetProtectionMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetProtectionMode
  			LOGICAL*2 FUNCTION $Worksheet_GetProtectScenarios($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetProtectScenarios
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ProtectScenarios', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 294, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetProtectScenarios = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetProtectScenarios
  			!$Worksheet_GetQueryTables return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetQueryTables($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetQueryTables
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'QueryTables', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1434, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetQueryTables = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetQueryTables
  			!$Worksheet_GetRange return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetRange($OBJECT, Cell1, Cell2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetRange
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Cell1	
				!DEC$ ATTRIBUTES REFERENCE	:: Cell1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Cell2	
				!DEC$ ATTRIBUTES REFERENCE	:: Cell2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Range', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Cell1, AUTO_ARG_IN)
				IF (PRESENT(Cell2)) CALL AUTOADDARG(invokeargs, '$ARG2', Cell2, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 197, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetRange = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetRange
  			!$Worksheet_GetRows return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetRows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetRows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rows', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 258, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetRows = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetRows
  			CHARACTER*(2048) FUNCTION $Worksheet_GetScrollArea($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetScrollArea
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ScrollArea', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1433, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetScrollArea = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetScrollArea
  			!$Worksheet_GetShapes return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetShapes($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetShapes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Shapes', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1377, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetShapes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetShapes
  			REAL*8 FUNCTION $Worksheet_GetStandardHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetStandardHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StandardHeight', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 407, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetStandardHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetStandardHeight
  			REAL*8 FUNCTION $Worksheet_GetStandardWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetStandardWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StandardWidth', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 408, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetStandardWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetStandardWidth
  			LOGICAL*2 FUNCTION $Worksheet_GetTransitionExpEval($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetTransitionExpEval
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionExpEval', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 401, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetTransitionExpEval = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetTransitionExpEval
  			LOGICAL*2 FUNCTION $Worksheet_GetTransitionFormEntry($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetTransitionFormEntry
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionFormEntry', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 402, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetTransitionFormEntry = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetTransitionFormEntry
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetType($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetType
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Type', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 108, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetType = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetType
  			!$Worksheet_GetUsedRange return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetUsedRange($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetUsedRange
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UsedRange', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 412, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetUsedRange = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetUsedRange
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetVisible($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetVisible = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetVisible
  			!$Worksheet_GetVPageBreaks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GetVPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GetVPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'VPageBreaks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1419, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GetVPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GetVPageBreaks
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GroupBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GroupBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 834, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GroupBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GroupBoxes
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_GroupObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_GroupObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1113, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_GroupObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_GroupObjects
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Labels($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Labels
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 841, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Labels = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Labels
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Lines($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Lines
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 767, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Lines = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Lines
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_ListBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ListBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 832, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_ListBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_ListBoxes
  			SUBROUTINE $Worksheet_Move($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Move
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 637, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Move
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_OLEObjects($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_OLEObjects
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 799, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_OLEObjects = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_OLEObjects
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_OptionButtons($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_OptionButtons
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 826, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_OptionButtons = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_OptionButtons
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Ovals($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Ovals
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 801, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Ovals = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Ovals
  			SUBROUTINE $Worksheet_Paste($OBJECT, Destination, Link, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Paste
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Destination	
				!DEC$ ATTRIBUTES REFERENCE	:: Destination
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Link	
				!DEC$ ATTRIBUTES REFERENCE	:: Link
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Destination)) CALL AUTOADDARG(invokeargs, '$ARG1', Destination, AUTO_ARG_IN)
				IF (PRESENT(Link)) CALL AUTOADDARG(invokeargs, '$ARG2', Link, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 211, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Paste
  			SUBROUTINE $Worksheet_PasteSpecial($OBJECT, Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_PasteSpecial
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Format	
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Link	
				!DEC$ ATTRIBUTES REFERENCE	:: Link
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: DisplayAsIcon	
				!DEC$ ATTRIBUTES REFERENCE	:: DisplayAsIcon
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IconFileName	
				!DEC$ ATTRIBUTES REFERENCE	:: IconFileName
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IconIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: IconIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IconLabel	
				!DEC$ ATTRIBUTES REFERENCE	:: IconLabel
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Format)) CALL AUTOADDARG(invokeargs, '$ARG1', Format, AUTO_ARG_IN)
				IF (PRESENT(Link)) CALL AUTOADDARG(invokeargs, '$ARG2', Link, AUTO_ARG_IN)
				IF (PRESENT(DisplayAsIcon)) CALL AUTOADDARG(invokeargs, '$ARG3', DisplayAsIcon, AUTO_ARG_IN)
				IF (PRESENT(IconFileName)) CALL AUTOADDARG(invokeargs, '$ARG4', IconFileName, AUTO_ARG_IN)
				IF (PRESENT(IconIndex)) CALL AUTOADDARG(invokeargs, '$ARG5', IconIndex, AUTO_ARG_IN)
				IF (PRESENT(IconLabel)) CALL AUTOADDARG(invokeargs, '$ARG6', IconLabel, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1027, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_PasteSpecial
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Pictures($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Pictures
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 771, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Pictures = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Pictures
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_PivotTables($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_PivotTables
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 690, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_PivotTables = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_PivotTables
  			!$Worksheet_PivotTableWizard return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_PivotTableWizard($OBJECT, SourceType, SourceData, TableDestination, TableName, RowGrand, ColumnGrand, SaveData, HasAutoFormat, AutoPage, Reserved, BackgroundQuery, OptimizeCache, PageFieldOrder, PageFieldWrapCount, ReadData, Connection, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_PivotTableWizard
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SourceType	
				!DEC$ ATTRIBUTES REFERENCE	:: SourceType
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SourceData	
				!DEC$ ATTRIBUTES REFERENCE	:: SourceData
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TableDestination	
				!DEC$ ATTRIBUTES REFERENCE	:: TableDestination
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TableName	
				!DEC$ ATTRIBUTES REFERENCE	:: TableName
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowGrand	
				!DEC$ ATTRIBUTES REFERENCE	:: RowGrand
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnGrand	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnGrand
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SaveData	
				!DEC$ ATTRIBUTES REFERENCE	:: SaveData
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: HasAutoFormat	
				!DEC$ ATTRIBUTES REFERENCE	:: HasAutoFormat
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AutoPage	
				!DEC$ ATTRIBUTES REFERENCE	:: AutoPage
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Reserved	
				!DEC$ ATTRIBUTES REFERENCE	:: Reserved
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: BackgroundQuery	
				!DEC$ ATTRIBUTES REFERENCE	:: BackgroundQuery
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: OptimizeCache	
				!DEC$ ATTRIBUTES REFERENCE	:: OptimizeCache
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PageFieldOrder	
				!DEC$ ATTRIBUTES REFERENCE	:: PageFieldOrder
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PageFieldWrapCount	
				!DEC$ ATTRIBUTES REFERENCE	:: PageFieldWrapCount
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadData	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadData
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Connection	
				!DEC$ ATTRIBUTES REFERENCE	:: Connection
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(SourceType)) CALL AUTOADDARG(invokeargs, '$ARG1', SourceType, AUTO_ARG_IN)
				IF (PRESENT(SourceData)) CALL AUTOADDARG(invokeargs, '$ARG2', SourceData, AUTO_ARG_IN)
				IF (PRESENT(TableDestination)) CALL AUTOADDARG(invokeargs, '$ARG3', TableDestination, AUTO_ARG_IN)
				IF (PRESENT(TableName)) CALL AUTOADDARG(invokeargs, '$ARG4', TableName, AUTO_ARG_IN)
				IF (PRESENT(RowGrand)) CALL AUTOADDARG(invokeargs, '$ARG5', RowGrand, AUTO_ARG_IN)
				IF (PRESENT(ColumnGrand)) CALL AUTOADDARG(invokeargs, '$ARG6', ColumnGrand, AUTO_ARG_IN)
				IF (PRESENT(SaveData)) CALL AUTOADDARG(invokeargs, '$ARG7', SaveData, AUTO_ARG_IN)
				IF (PRESENT(HasAutoFormat)) CALL AUTOADDARG(invokeargs, '$ARG8', HasAutoFormat, AUTO_ARG_IN)
				IF (PRESENT(AutoPage)) CALL AUTOADDARG(invokeargs, '$ARG9', AutoPage, AUTO_ARG_IN)
				IF (PRESENT(Reserved)) CALL AUTOADDARG(invokeargs, '$ARG10', Reserved, AUTO_ARG_IN)
				IF (PRESENT(BackgroundQuery)) CALL AUTOADDARG(invokeargs, '$ARG11', BackgroundQuery, AUTO_ARG_IN)
				IF (PRESENT(OptimizeCache)) CALL AUTOADDARG(invokeargs, '$ARG12', OptimizeCache, AUTO_ARG_IN)
				IF (PRESENT(PageFieldOrder)) CALL AUTOADDARG(invokeargs, '$ARG13', PageFieldOrder, AUTO_ARG_IN)
				IF (PRESENT(PageFieldWrapCount)) CALL AUTOADDARG(invokeargs, '$ARG14', PageFieldWrapCount, AUTO_ARG_IN)
				IF (PRESENT(ReadData)) CALL AUTOADDARG(invokeargs, '$ARG15', ReadData, AUTO_ARG_IN)
				IF (PRESENT(Connection)) CALL AUTOADDARG(invokeargs, '$ARG16', Connection, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 684, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_PivotTableWizard = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_PivotTableWizard
  			SUBROUTINE $Worksheet_PrintOut($OBJECT, From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_PrintOut
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: From	
				!DEC$ ATTRIBUTES REFERENCE	:: From
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: To	
				!DEC$ ATTRIBUTES REFERENCE	:: To
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Copies	
				!DEC$ ATTRIBUTES REFERENCE	:: Copies
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Preview	
				!DEC$ ATTRIBUTES REFERENCE	:: Preview
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ActivePrinter	
				!DEC$ ATTRIBUTES REFERENCE	:: ActivePrinter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PrintToFile	
				!DEC$ ATTRIBUTES REFERENCE	:: PrintToFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Collate	
				!DEC$ ATTRIBUTES REFERENCE	:: Collate
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(From)) CALL AUTOADDARG(invokeargs, '$ARG1', From, AUTO_ARG_IN)
				IF (PRESENT(To)) CALL AUTOADDARG(invokeargs, '$ARG2', To, AUTO_ARG_IN)
				IF (PRESENT(Copies)) CALL AUTOADDARG(invokeargs, '$ARG3', Copies, AUTO_ARG_IN)
				IF (PRESENT(Preview)) CALL AUTOADDARG(invokeargs, '$ARG4', Preview, AUTO_ARG_IN)
				IF (PRESENT(ActivePrinter)) CALL AUTOADDARG(invokeargs, '$ARG5', ActivePrinter, AUTO_ARG_IN)
				IF (PRESENT(PrintToFile)) CALL AUTOADDARG(invokeargs, '$ARG6', PrintToFile, AUTO_ARG_IN)
				IF (PRESENT(Collate)) CALL AUTOADDARG(invokeargs, '$ARG7', Collate, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 905, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_PrintOut
  			SUBROUTINE $Worksheet_PrintPreview($OBJECT, EnableChanges, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_PrintPreview
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: EnableChanges	
				!DEC$ ATTRIBUTES REFERENCE	:: EnableChanges
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(EnableChanges)) CALL AUTOADDARG(invokeargs, '$ARG1', EnableChanges, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 281, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_PrintPreview
  			SUBROUTINE $Worksheet_Protect($OBJECT, Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Protect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: DrawingObjects	
				!DEC$ ATTRIBUTES REFERENCE	:: DrawingObjects
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Contents	
				!DEC$ ATTRIBUTES REFERENCE	:: Contents
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Scenarios	
				!DEC$ ATTRIBUTES REFERENCE	:: Scenarios
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: UserInterfaceOnly	
				!DEC$ ATTRIBUTES REFERENCE	:: UserInterfaceOnly
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG1', Password, AUTO_ARG_IN)
				IF (PRESENT(DrawingObjects)) CALL AUTOADDARG(invokeargs, '$ARG2', DrawingObjects, AUTO_ARG_IN)
				IF (PRESENT(Contents)) CALL AUTOADDARG(invokeargs, '$ARG3', Contents, AUTO_ARG_IN)
				IF (PRESENT(Scenarios)) CALL AUTOADDARG(invokeargs, '$ARG4', Scenarios, AUTO_ARG_IN)
				IF (PRESENT(UserInterfaceOnly)) CALL AUTOADDARG(invokeargs, '$ARG5', UserInterfaceOnly, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 282, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Protect
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Rectangles($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Rectangles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 774, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Rectangles = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Rectangles
  			SUBROUTINE $Worksheet_ResetAllPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ResetAllPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1426, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_ResetAllPageBreaks
  			SUBROUTINE $Worksheet_SaveAs($OBJECT, Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SaveAs
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FileFormat	
				!DEC$ ATTRIBUTES REFERENCE	:: FileFormat
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: WriteResPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: WriteResPassword
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadOnlyRecommended	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadOnlyRecommended
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CreateBackup	
				!DEC$ ATTRIBUTES REFERENCE	:: CreateBackup
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AddToMru	
				!DEC$ ATTRIBUTES REFERENCE	:: AddToMru
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TextCodepage	
				!DEC$ ATTRIBUTES REFERENCE	:: TextCodepage
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TextVisualLayout	
				!DEC$ ATTRIBUTES REFERENCE	:: TextVisualLayout
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(FileFormat)) CALL AUTOADDARG(invokeargs, '$ARG2', FileFormat, AUTO_ARG_IN)
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG3', Password, AUTO_ARG_IN)
				IF (PRESENT(WriteResPassword)) CALL AUTOADDARG(invokeargs, '$ARG4', WriteResPassword, AUTO_ARG_IN)
				IF (PRESENT(ReadOnlyRecommended)) CALL AUTOADDARG(invokeargs, '$ARG5', ReadOnlyRecommended, AUTO_ARG_IN)
				IF (PRESENT(CreateBackup)) CALL AUTOADDARG(invokeargs, '$ARG6', CreateBackup, AUTO_ARG_IN)
				IF (PRESENT(AddToMru)) CALL AUTOADDARG(invokeargs, '$ARG7', AddToMru, AUTO_ARG_IN)
				IF (PRESENT(TextCodepage)) CALL AUTOADDARG(invokeargs, '$ARG8', TextCodepage, AUTO_ARG_IN)
				IF (PRESENT(TextVisualLayout)) CALL AUTOADDARG(invokeargs, '$ARG9', TextVisualLayout, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 284, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SaveAs
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Scenarios($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Scenarios
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 908, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Scenarios = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Scenarios
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_ScrollBars($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ScrollBars
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 830, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_ScrollBars = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_ScrollBars
  			SUBROUTINE $Worksheet_Select($OBJECT, Replace, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Select
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Replace	
				!DEC$ ATTRIBUTES REFERENCE	:: Replace
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Replace)) CALL AUTOADDARG(invokeargs, '$ARG1', Replace, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 235, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Select
  			SUBROUTINE $Worksheet_Set_CodeName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Set_CodeName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_CodeName', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, -2147418112, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Set_CodeName
  			SUBROUTINE $Worksheet_SetAutoFilterMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetAutoFilterMode
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoFilterMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 792, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetAutoFilterMode
  			SUBROUTINE $Worksheet_SetBackgroundPicture($OBJECT, Filename, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetBackgroundPicture
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 1188, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetBackgroundPicture
  			SUBROUTINE $Worksheet_SetDisplayAutomaticPageBreaks($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetDisplayAutomaticPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayAutomaticPageBreaks', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 643, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetDisplayAutomaticPageBreaks
  			SUBROUTINE $Worksheet_SetDisplayPageBreaks($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetDisplayPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayPageBreaks', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1435, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetDisplayPageBreaks
  			SUBROUTINE $Worksheet_SetDisplayRightToLeft($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetDisplayRightToLeft
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayRightToLeft', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 648, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetDisplayRightToLeft
  			SUBROUTINE $Worksheet_SetEnableAutoFilter($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetEnableAutoFilter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableAutoFilter', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1156, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetEnableAutoFilter
  			SUBROUTINE $Worksheet_SetEnableCalculation($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetEnableCalculation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableCalculation', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1424, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetEnableCalculation
  			SUBROUTINE $Worksheet_SetEnableOutlining($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetEnableOutlining
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableOutlining', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1157, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetEnableOutlining
  			SUBROUTINE $Worksheet_SetEnablePivotTable($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetEnablePivotTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnablePivotTable', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1158, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetEnablePivotTable
  			SUBROUTINE $Worksheet_SetEnableSelection($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetEnableSelection
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSelection', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1425, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetEnableSelection
  			SUBROUTINE $Worksheet_SetName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetName
  			SUBROUTINE $Worksheet_SetOnCalculate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetOnCalculate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnCalculate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 625, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetOnCalculate
  			SUBROUTINE $Worksheet_SetOnData($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetOnData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnData', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 629, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetOnData
  			SUBROUTINE $Worksheet_SetOnDoubleClick($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetOnDoubleClick
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnDoubleClick', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 628, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetOnDoubleClick
  			SUBROUTINE $Worksheet_SetOnEntry($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetOnEntry
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnEntry', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 627, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetOnEntry
  			SUBROUTINE $Worksheet_SetOnSheetActivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetOnSheetActivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetActivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1031, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetOnSheetActivate
  			SUBROUTINE $Worksheet_SetOnSheetDeactivate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetOnSheetDeactivate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OnSheetDeactivate', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1081, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetOnSheetDeactivate
  			SUBROUTINE $Worksheet_SetScrollArea($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetScrollArea
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: $ARG1	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ScrollArea', $ARG1, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1433, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetScrollArea
  			SUBROUTINE $Worksheet_SetStandardWidth($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetStandardWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'StandardWidth', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 408, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetStandardWidth
  			SUBROUTINE $Worksheet_SetTransitionExpEval($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetTransitionExpEval
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionExpEval', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 401, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetTransitionExpEval
  			SUBROUTINE $Worksheet_SetTransitionFormEntry($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetTransitionFormEntry
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				LOGICAL*2, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'TransitionFormEntry', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 402, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetTransitionFormEntry
  			SUBROUTINE $Worksheet_SetVisible($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_SetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_SetVisible
  			SUBROUTINE $Worksheet_ShowAllData($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ShowAllData
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 794, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_ShowAllData
  			SUBROUTINE $Worksheet_ShowDataForm($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_ShowDataForm
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 409, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_ShowDataForm
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_Spinners($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Spinners
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 838, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_Spinners = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_Spinners
  			INTEGER(INT_PTR_KIND()) FUNCTION $Worksheet_TextBoxes($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_TextBoxes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Index)) CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 777, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				$Worksheet_TextBoxes = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION $Worksheet_TextBoxes
  			SUBROUTINE $Worksheet_Unprotect($OBJECT, Password, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: $Worksheet_Unprotect
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG1', Password, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 285, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE $Worksheet_Unprotect
  			INTEGER(INT_PTR_KIND()) FUNCTION Axes__NewEnum($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Axes__NewEnum
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_UNKNOWN)
				$$STATUS = AUTOINVOKE($OBJECT, -4, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Axes__NewEnum = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Axes__NewEnum
  			!Axes_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Axes_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Axes_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Axes_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Axes_GetApplication
  			INTEGER*4 FUNCTION Axes_GetCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Axes_GetCount
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Count', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 118, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Axes_GetCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Axes_GetCount
  			INTEGER(INT_PTR_KIND()) FUNCTION Axes_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Axes_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Axes_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Axes_GetCreator
  			INTEGER(INT_PTR_KIND()) FUNCTION Axes_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Axes_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Axes_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Axes_GetParent
  			!Axes_Item return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Axes_Item($OBJECT, Type, AxisGroup, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Axes_Item
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: AxisGroup	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: AxisGroup
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Type)
				CALL AUTOADDARG(invokeargs, '$ARG2', AxisGroup)
				$$STATUS = AUTOINVOKE($OBJECT, 170, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Axes_Item = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Axes_Item
  			SUBROUTINE Charts__Dummy7($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts__Dummy7
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 65543, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts__Dummy7
  			!Charts_Add return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Charts_Add($OBJECT, Before, After, Count, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_Add
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Count	
				!DEC$ ATTRIBUTES REFERENCE	:: Count
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				IF (PRESENT(Count)) CALL AUTOADDARG(invokeargs, '$ARG3', Count, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 181, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_Add = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_Add
  			SUBROUTINE Charts_Copy($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_Copy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 551, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts_Copy
  			SUBROUTINE Charts_Delete($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_Delete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 117, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts_Delete
  			INTEGER(INT_PTR_KIND()) FUNCTION Charts_Get_Default($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_Get_Default
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_Default', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 0, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_Get_Default = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_Get_Default
  			INTEGER(INT_PTR_KIND()) FUNCTION Charts_Get_NewEnum($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_Get_NewEnum
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_NewEnum', $RETURN, AUTO_ARG_OUT, VT_UNKNOWN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -4, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_Get_NewEnum = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_Get_NewEnum
  			!Charts_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Charts_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetApplication
  			INTEGER*4 FUNCTION Charts_GetCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetCount
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Count', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 118, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetCount
  			INTEGER(INT_PTR_KIND()) FUNCTION Charts_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetCreator
  			!Charts_GetHPageBreaks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Charts_GetHPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetHPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HPageBreaks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1418, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetHPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetHPageBreaks
  			INTEGER(INT_PTR_KIND()) FUNCTION Charts_GetItem($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetItem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Item', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 170, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetItem = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetItem
  			INTEGER(INT_PTR_KIND()) FUNCTION Charts_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetParent
  			FUNCTION Charts_GetVisible($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Charts_GetVisible
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetVisible = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetVisible
  			!Charts_GetVPageBreaks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Charts_GetVPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_GetVPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'VPageBreaks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1419, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Charts_GetVPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Charts_GetVPageBreaks
  			SUBROUTINE Charts_Move($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_Move
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 637, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts_Move
  			SUBROUTINE Charts_PrintOut($OBJECT, From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_PrintOut
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: From	
				!DEC$ ATTRIBUTES REFERENCE	:: From
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: To	
				!DEC$ ATTRIBUTES REFERENCE	:: To
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Copies	
				!DEC$ ATTRIBUTES REFERENCE	:: Copies
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Preview	
				!DEC$ ATTRIBUTES REFERENCE	:: Preview
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ActivePrinter	
				!DEC$ ATTRIBUTES REFERENCE	:: ActivePrinter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PrintToFile	
				!DEC$ ATTRIBUTES REFERENCE	:: PrintToFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Collate	
				!DEC$ ATTRIBUTES REFERENCE	:: Collate
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(From)) CALL AUTOADDARG(invokeargs, '$ARG1', From, AUTO_ARG_IN)
				IF (PRESENT(To)) CALL AUTOADDARG(invokeargs, '$ARG2', To, AUTO_ARG_IN)
				IF (PRESENT(Copies)) CALL AUTOADDARG(invokeargs, '$ARG3', Copies, AUTO_ARG_IN)
				IF (PRESENT(Preview)) CALL AUTOADDARG(invokeargs, '$ARG4', Preview, AUTO_ARG_IN)
				IF (PRESENT(ActivePrinter)) CALL AUTOADDARG(invokeargs, '$ARG5', ActivePrinter, AUTO_ARG_IN)
				IF (PRESENT(PrintToFile)) CALL AUTOADDARG(invokeargs, '$ARG6', PrintToFile, AUTO_ARG_IN)
				IF (PRESENT(Collate)) CALL AUTOADDARG(invokeargs, '$ARG7', Collate, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 905, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts_PrintOut
  			SUBROUTINE Charts_PrintPreview($OBJECT, EnableChanges, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_PrintPreview
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: EnableChanges	
				!DEC$ ATTRIBUTES REFERENCE	:: EnableChanges
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(EnableChanges)) CALL AUTOADDARG(invokeargs, '$ARG1', EnableChanges, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 281, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts_PrintPreview
  			SUBROUTINE Charts_Select($OBJECT, Replace, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_Select
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Replace	
				!DEC$ ATTRIBUTES REFERENCE	:: Replace
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Replace)) CALL AUTOADDARG(invokeargs, '$ARG1', Replace, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 235, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts_Select
  			SUBROUTINE Charts_SetVisible($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Charts_SetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Charts_SetVisible
  			SUBROUTINE Range_Activate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Activate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 304, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Activate
  			!Range_AddComment return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_AddComment($OBJECT, Text, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AddComment
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Text	
				!DEC$ ATTRIBUTES REFERENCE	:: Text
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Text)) CALL AUTOADDARG(invokeargs, '$ARG1', Text, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1389, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_AddComment = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_AddComment
  			SUBROUTINE Range_AdvancedFilter($OBJECT, Action, CriteriaRange, CopyToRange, Unique, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AdvancedFilter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Action	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Action
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CriteriaRange	
				!DEC$ ATTRIBUTES REFERENCE	:: CriteriaRange
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CopyToRange	
				!DEC$ ATTRIBUTES REFERENCE	:: CopyToRange
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Unique	
				!DEC$ ATTRIBUTES REFERENCE	:: Unique
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Action)
				IF (PRESENT(CriteriaRange)) CALL AUTOADDARG(invokeargs, '$ARG2', CriteriaRange, AUTO_ARG_IN)
				IF (PRESENT(CopyToRange)) CALL AUTOADDARG(invokeargs, '$ARG3', CopyToRange, AUTO_ARG_IN)
				IF (PRESENT(Unique)) CALL AUTOADDARG(invokeargs, '$ARG4', Unique, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 876, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_AdvancedFilter
  			SUBROUTINE Range_ApplyNames($OBJECT, Names, IgnoreRelativeAbsolute, UseRowColumnNames, OmitColumn, OmitRow, Order, AppendLast, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ApplyNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Names	
				!DEC$ ATTRIBUTES REFERENCE	:: Names
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreRelativeAbsolute	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreRelativeAbsolute
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: UseRowColumnNames	
				!DEC$ ATTRIBUTES REFERENCE	:: UseRowColumnNames
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: OmitColumn	
				!DEC$ ATTRIBUTES REFERENCE	:: OmitColumn
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: OmitRow	
				!DEC$ ATTRIBUTES REFERENCE	:: OmitRow
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Order	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Order
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AppendLast	
				!DEC$ ATTRIBUTES REFERENCE	:: AppendLast
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Names)) CALL AUTOADDARG(invokeargs, '$ARG1', Names, AUTO_ARG_IN)
				IF (PRESENT(IgnoreRelativeAbsolute)) CALL AUTOADDARG(invokeargs, '$ARG2', IgnoreRelativeAbsolute, AUTO_ARG_IN)
				IF (PRESENT(UseRowColumnNames)) CALL AUTOADDARG(invokeargs, '$ARG3', UseRowColumnNames, AUTO_ARG_IN)
				IF (PRESENT(OmitColumn)) CALL AUTOADDARG(invokeargs, '$ARG4', OmitColumn, AUTO_ARG_IN)
				IF (PRESENT(OmitRow)) CALL AUTOADDARG(invokeargs, '$ARG5', OmitRow, AUTO_ARG_IN)
				IF (PRESENT(Order)) CALL AUTOADDARG(invokeargs, '$ARG6', Order)
				IF (PRESENT(AppendLast)) CALL AUTOADDARG(invokeargs, '$ARG7', AppendLast, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 441, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ApplyNames
  			SUBROUTINE Range_ApplyOutlineStyles($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ApplyOutlineStyles
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 448, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ApplyOutlineStyles
  			CHARACTER*(2048) FUNCTION Range_AutoComplete($OBJECT, String, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AutoComplete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: String	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: String
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG1', String, AUTO_ARG_IN, VT_BSTR)
				$$STATUS = AUTOINVOKE($OBJECT, 1185, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_AutoComplete = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_AutoComplete
  			SUBROUTINE Range_AutoFill($OBJECT, Destination, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AutoFill
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Destination	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: Destination
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Destination, AUTO_ARG_IN, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG2', Type)
				$$STATUS = AUTOINVOKE($OBJECT, 449, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_AutoFill
  			SUBROUTINE Range_AutoFilter($OBJECT, Field, Criteria1, Operator, Criteria2, VisibleDropDown, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AutoFilter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Field	
				!DEC$ ATTRIBUTES REFERENCE	:: Field
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Criteria1	
				!DEC$ ATTRIBUTES REFERENCE	:: Criteria1
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Operator	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Operator
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Criteria2	
				!DEC$ ATTRIBUTES REFERENCE	:: Criteria2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: VisibleDropDown	
				!DEC$ ATTRIBUTES REFERENCE	:: VisibleDropDown
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Field)) CALL AUTOADDARG(invokeargs, '$ARG1', Field, AUTO_ARG_IN)
				IF (PRESENT(Criteria1)) CALL AUTOADDARG(invokeargs, '$ARG2', Criteria1, AUTO_ARG_IN)
				IF (PRESENT(Operator)) CALL AUTOADDARG(invokeargs, '$ARG3', Operator)
				IF (PRESENT(Criteria2)) CALL AUTOADDARG(invokeargs, '$ARG4', Criteria2, AUTO_ARG_IN)
				IF (PRESENT(VisibleDropDown)) CALL AUTOADDARG(invokeargs, '$ARG5', VisibleDropDown, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 793, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_AutoFilter
  			SUBROUTINE Range_AutoFit($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AutoFit
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 237, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_AutoFit
  			SUBROUTINE Range_AutoFormat($OBJECT, Format, Number, Font, Alignment, Border, Pattern, Width, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AutoFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Format	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Number	
				!DEC$ ATTRIBUTES REFERENCE	:: Number
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Font	
				!DEC$ ATTRIBUTES REFERENCE	:: Font
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Alignment	
				!DEC$ ATTRIBUTES REFERENCE	:: Alignment
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Border	
				!DEC$ ATTRIBUTES REFERENCE	:: Border
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Pattern	
				!DEC$ ATTRIBUTES REFERENCE	:: Pattern
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Width	
				!DEC$ ATTRIBUTES REFERENCE	:: Width
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Format)) CALL AUTOADDARG(invokeargs, '$ARG1', Format)
				IF (PRESENT(Number)) CALL AUTOADDARG(invokeargs, '$ARG2', Number, AUTO_ARG_IN)
				IF (PRESENT(Font)) CALL AUTOADDARG(invokeargs, '$ARG3', Font, AUTO_ARG_IN)
				IF (PRESENT(Alignment)) CALL AUTOADDARG(invokeargs, '$ARG4', Alignment, AUTO_ARG_IN)
				IF (PRESENT(Border)) CALL AUTOADDARG(invokeargs, '$ARG5', Border, AUTO_ARG_IN)
				IF (PRESENT(Pattern)) CALL AUTOADDARG(invokeargs, '$ARG6', Pattern, AUTO_ARG_IN)
				IF (PRESENT(Width)) CALL AUTOADDARG(invokeargs, '$ARG7', Width, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 114, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_AutoFormat
  			SUBROUTINE Range_AutoOutline($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_AutoOutline
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1036, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_AutoOutline
  			SUBROUTINE Range_BorderAround($OBJECT, LineStyle, Weight, ColorIndex, Color, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_BorderAround
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LineStyle	
				!DEC$ ATTRIBUTES REFERENCE	:: LineStyle
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Weight	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Weight
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: ColorIndex	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: ColorIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Color	
				!DEC$ ATTRIBUTES REFERENCE	:: Color
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(LineStyle)) CALL AUTOADDARG(invokeargs, '$ARG1', LineStyle, AUTO_ARG_IN)
				IF (PRESENT(Weight)) CALL AUTOADDARG(invokeargs, '$ARG2', Weight)
				IF (PRESENT(ColorIndex)) CALL AUTOADDARG(invokeargs, '$ARG3', ColorIndex)
				IF (PRESENT(Color)) CALL AUTOADDARG(invokeargs, '$ARG4', Color, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1067, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_BorderAround
  			SUBROUTINE Range_Calculate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Calculate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 279, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Calculate
  			SUBROUTINE Range_CheckSpelling($OBJECT, CustomDictionary, IgnoreUppercase, AlwaysSuggest, IgnoreInitialAlefHamza, IgnoreFinalYaa, SpellScript, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_CheckSpelling
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CustomDictionary	
				!DEC$ ATTRIBUTES REFERENCE	:: CustomDictionary
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreUppercase	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreUppercase
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AlwaysSuggest	
				!DEC$ ATTRIBUTES REFERENCE	:: AlwaysSuggest
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreInitialAlefHamza	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreInitialAlefHamza
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreFinalYaa	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreFinalYaa
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SpellScript	
				!DEC$ ATTRIBUTES REFERENCE	:: SpellScript
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(CustomDictionary)) CALL AUTOADDARG(invokeargs, '$ARG1', CustomDictionary, AUTO_ARG_IN)
				IF (PRESENT(IgnoreUppercase)) CALL AUTOADDARG(invokeargs, '$ARG2', IgnoreUppercase, AUTO_ARG_IN)
				IF (PRESENT(AlwaysSuggest)) CALL AUTOADDARG(invokeargs, '$ARG3', AlwaysSuggest, AUTO_ARG_IN)
				IF (PRESENT(IgnoreInitialAlefHamza)) CALL AUTOADDARG(invokeargs, '$ARG4', IgnoreInitialAlefHamza, AUTO_ARG_IN)
				IF (PRESENT(IgnoreFinalYaa)) CALL AUTOADDARG(invokeargs, '$ARG5', IgnoreFinalYaa, AUTO_ARG_IN)
				IF (PRESENT(SpellScript)) CALL AUTOADDARG(invokeargs, '$ARG6', SpellScript, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 505, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_CheckSpelling
  			SUBROUTINE Range_Clear($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Clear
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 111, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Clear
  			SUBROUTINE Range_ClearComments($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ClearComments
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1390, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ClearComments
  			SUBROUTINE Range_ClearContents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ClearContents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 113, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ClearContents
  			SUBROUTINE Range_ClearFormats($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ClearFormats
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 112, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ClearFormats
  			SUBROUTINE Range_ClearNotes($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ClearNotes
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 239, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ClearNotes
  			SUBROUTINE Range_ClearOutline($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ClearOutline
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1037, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ClearOutline
  			!Range_ColumnDifferences return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_ColumnDifferences($OBJECT, Comparison, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ColumnDifferences
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Comparison	
				!DEC$ ATTRIBUTES REFERENCE	:: Comparison
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Comparison, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 510, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_ColumnDifferences = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_ColumnDifferences
  			SUBROUTINE Range_Consolidate($OBJECT, Sources, Function, TopRow, LeftColumn, CreateLinks, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Consolidate
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Sources	
				!DEC$ ATTRIBUTES REFERENCE	:: Sources
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Function	
				!DEC$ ATTRIBUTES REFERENCE	:: Function
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TopRow	
				!DEC$ ATTRIBUTES REFERENCE	:: TopRow
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LeftColumn	
				!DEC$ ATTRIBUTES REFERENCE	:: LeftColumn
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: CreateLinks	
				!DEC$ ATTRIBUTES REFERENCE	:: CreateLinks
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Sources)) CALL AUTOADDARG(invokeargs, '$ARG1', Sources, AUTO_ARG_IN)
				IF (PRESENT(Function)) CALL AUTOADDARG(invokeargs, '$ARG2', Function, AUTO_ARG_IN)
				IF (PRESENT(TopRow)) CALL AUTOADDARG(invokeargs, '$ARG3', TopRow, AUTO_ARG_IN)
				IF (PRESENT(LeftColumn)) CALL AUTOADDARG(invokeargs, '$ARG4', LeftColumn, AUTO_ARG_IN)
				IF (PRESENT(CreateLinks)) CALL AUTOADDARG(invokeargs, '$ARG5', CreateLinks, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 482, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Consolidate
  			SUBROUTINE Range_Copy($OBJECT, Destination, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Copy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Destination	
				!DEC$ ATTRIBUTES REFERENCE	:: Destination
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Destination)) CALL AUTOADDARG(invokeargs, '$ARG1', Destination, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 551, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Copy
  			INTEGER*4 FUNCTION Range_CopyFromRecordset($OBJECT, Data, MaxRows, MaxColumns, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_CopyFromRecordset
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Data	! IUnknown
				!DEC$ ATTRIBUTES REFERENCE	:: Data
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MaxRows	
				!DEC$ ATTRIBUTES REFERENCE	:: MaxRows
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MaxColumns	
				!DEC$ ATTRIBUTES REFERENCE	:: MaxColumns
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', Data, AUTO_ARG_IN, VT_UNKNOWN)
				IF (PRESENT(MaxRows)) CALL AUTOADDARG(invokeargs, '$ARG2', MaxRows, AUTO_ARG_IN)
				IF (PRESENT(MaxColumns)) CALL AUTOADDARG(invokeargs, '$ARG3', MaxColumns, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1152, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_CopyFromRecordset = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_CopyFromRecordset
  			SUBROUTINE Range_CopyPicture($OBJECT, Appearance, Format, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_CopyPicture
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Appearance	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Appearance
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Format	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Appearance)
				CALL AUTOADDARG(invokeargs, '$ARG2', Format)
				$$STATUS = AUTOINVOKE($OBJECT, 213, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_CopyPicture
  			SUBROUTINE Range_CreateNames($OBJECT, Top, Left, Bottom, Right, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_CreateNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Top	
				!DEC$ ATTRIBUTES REFERENCE	:: Top
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Left	
				!DEC$ ATTRIBUTES REFERENCE	:: Left
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Bottom	
				!DEC$ ATTRIBUTES REFERENCE	:: Bottom
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Right	
				!DEC$ ATTRIBUTES REFERENCE	:: Right
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Top)) CALL AUTOADDARG(invokeargs, '$ARG1', Top, AUTO_ARG_IN)
				IF (PRESENT(Left)) CALL AUTOADDARG(invokeargs, '$ARG2', Left, AUTO_ARG_IN)
				IF (PRESENT(Bottom)) CALL AUTOADDARG(invokeargs, '$ARG3', Bottom, AUTO_ARG_IN)
				IF (PRESENT(Right)) CALL AUTOADDARG(invokeargs, '$ARG4', Right, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 457, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_CreateNames
  			SUBROUTINE Range_CreatePublisher($OBJECT, Edition, Appearance, ContainsPICT, ContainsBIFF, ContainsRTF, ContainsVALU, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_CreatePublisher
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Edition	
				!DEC$ ATTRIBUTES REFERENCE	:: Edition
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Appearance	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Appearance
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsPICT	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsPICT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsBIFF	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsBIFF
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsRTF	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsRTF
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ContainsVALU	
				!DEC$ ATTRIBUTES REFERENCE	:: ContainsVALU
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Edition)) CALL AUTOADDARG(invokeargs, '$ARG1', Edition, AUTO_ARG_IN)
				IF (PRESENT(Appearance)) CALL AUTOADDARG(invokeargs, '$ARG2', Appearance)
				IF (PRESENT(ContainsPICT)) CALL AUTOADDARG(invokeargs, '$ARG3', ContainsPICT, AUTO_ARG_IN)
				IF (PRESENT(ContainsBIFF)) CALL AUTOADDARG(invokeargs, '$ARG4', ContainsBIFF, AUTO_ARG_IN)
				IF (PRESENT(ContainsRTF)) CALL AUTOADDARG(invokeargs, '$ARG5', ContainsRTF, AUTO_ARG_IN)
				IF (PRESENT(ContainsVALU)) CALL AUTOADDARG(invokeargs, '$ARG6', ContainsVALU, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 458, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_CreatePublisher
  			SUBROUTINE Range_Cut($OBJECT, Destination, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Cut
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Destination	
				!DEC$ ATTRIBUTES REFERENCE	:: Destination
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Destination)) CALL AUTOADDARG(invokeargs, '$ARG1', Destination, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 565, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Cut
  			SUBROUTINE Range_DataSeries($OBJECT, Rowcol, Type, Date, Step, Stop, Trend, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_DataSeries
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Rowcol	
				!DEC$ ATTRIBUTES REFERENCE	:: Rowcol
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Date	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Date
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Step	
				!DEC$ ATTRIBUTES REFERENCE	:: Step
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Stop	
				!DEC$ ATTRIBUTES REFERENCE	:: Stop
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Trend	
				!DEC$ ATTRIBUTES REFERENCE	:: Trend
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Rowcol)) CALL AUTOADDARG(invokeargs, '$ARG1', Rowcol, AUTO_ARG_IN)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG2', Type)
				IF (PRESENT(Date)) CALL AUTOADDARG(invokeargs, '$ARG3', Date)
				IF (PRESENT(Step)) CALL AUTOADDARG(invokeargs, '$ARG4', Step, AUTO_ARG_IN)
				IF (PRESENT(Stop)) CALL AUTOADDARG(invokeargs, '$ARG5', Stop, AUTO_ARG_IN)
				IF (PRESENT(Trend)) CALL AUTOADDARG(invokeargs, '$ARG6', Trend, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 464, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_DataSeries
  			SUBROUTINE Range_Delete($OBJECT, Shift, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Delete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Shift	
				!DEC$ ATTRIBUTES REFERENCE	:: Shift
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Shift)) CALL AUTOADDARG(invokeargs, '$ARG1', Shift, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 117, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Delete
  			FUNCTION Range_DialogBox($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_DialogBox
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_DialogBox
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOINVOKE($OBJECT, 245, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_DialogBox = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_DialogBox
  			FUNCTION Range_EditionOptions($OBJECT, Type, Option, Name, Reference, Appearance, ChartSize, Format, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_EditionOptions
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Option	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Option
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Name	
				!DEC$ ATTRIBUTES REFERENCE	:: Name
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Reference	
				!DEC$ ATTRIBUTES REFERENCE	:: Reference
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Appearance	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Appearance
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: ChartSize	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: ChartSize
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Format	
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_EditionOptions
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', Type)
				CALL AUTOADDARG(invokeargs, '$ARG2', Option)
				IF (PRESENT(Name)) CALL AUTOADDARG(invokeargs, '$ARG3', Name, AUTO_ARG_IN)
				IF (PRESENT(Reference)) CALL AUTOADDARG(invokeargs, '$ARG4', Reference, AUTO_ARG_IN)
				IF (PRESENT(Appearance)) CALL AUTOADDARG(invokeargs, '$ARG5', Appearance)
				IF (PRESENT(ChartSize)) CALL AUTOADDARG(invokeargs, '$ARG6', ChartSize)
				IF (PRESENT(Format)) CALL AUTOADDARG(invokeargs, '$ARG7', Format, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1131, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_EditionOptions = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_EditionOptions
  			SUBROUTINE Range_FillDown($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_FillDown
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 248, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_FillDown
  			SUBROUTINE Range_FillLeft($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_FillLeft
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 249, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_FillLeft
  			SUBROUTINE Range_FillRight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_FillRight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 250, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_FillRight
  			SUBROUTINE Range_FillUp($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_FillUp
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 251, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_FillUp
  			!Range_Find return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_Find($OBJECT, What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, MatchControlCharacters, MatchDiacritics, MatchKashida, MatchAlefHamza, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Find
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: What	
				!DEC$ ATTRIBUTES REFERENCE	:: What
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LookIn	
				!DEC$ ATTRIBUTES REFERENCE	:: LookIn
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LookAt	
				!DEC$ ATTRIBUTES REFERENCE	:: LookAt
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SearchOrder	
				!DEC$ ATTRIBUTES REFERENCE	:: SearchOrder
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: SearchDirection	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: SearchDirection
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchCase	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchCase
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchByte	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchByte
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchControlCharacters	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchControlCharacters
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchDiacritics	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchDiacritics
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchKashida	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchKashida
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchAlefHamza	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchAlefHamza
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', What, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				IF (PRESENT(LookIn)) CALL AUTOADDARG(invokeargs, '$ARG3', LookIn, AUTO_ARG_IN)
				IF (PRESENT(LookAt)) CALL AUTOADDARG(invokeargs, '$ARG4', LookAt, AUTO_ARG_IN)
				IF (PRESENT(SearchOrder)) CALL AUTOADDARG(invokeargs, '$ARG5', SearchOrder, AUTO_ARG_IN)
				IF (PRESENT(SearchDirection)) CALL AUTOADDARG(invokeargs, '$ARG6', SearchDirection)
				IF (PRESENT(MatchCase)) CALL AUTOADDARG(invokeargs, '$ARG7', MatchCase, AUTO_ARG_IN)
				IF (PRESENT(MatchByte)) CALL AUTOADDARG(invokeargs, '$ARG8', MatchByte, AUTO_ARG_IN)
				IF (PRESENT(MatchControlCharacters)) CALL AUTOADDARG(invokeargs, '$ARG9', MatchControlCharacters, AUTO_ARG_IN)
				IF (PRESENT(MatchDiacritics)) CALL AUTOADDARG(invokeargs, '$ARG10', MatchDiacritics, AUTO_ARG_IN)
				IF (PRESENT(MatchKashida)) CALL AUTOADDARG(invokeargs, '$ARG11', MatchKashida, AUTO_ARG_IN)
				IF (PRESENT(MatchAlefHamza)) CALL AUTOADDARG(invokeargs, '$ARG12', MatchAlefHamza, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 398, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_Find = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_Find
  			!Range_FindNext return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_FindNext($OBJECT, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_FindNext
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG1', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 399, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_FindNext = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_FindNext
  			!Range_FindPrevious return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_FindPrevious($OBJECT, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_FindPrevious
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG1', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 400, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_FindPrevious = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_FindPrevious
  			SUBROUTINE Range_FunctionWizard($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_FunctionWizard
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 571, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_FunctionWizard
  			FUNCTION Range_Get_Default($OBJECT, RowIndex, ColumnIndex, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Get_Default
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: RowIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnIndex
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_Get_Default
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_Default', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(RowIndex)) CALL AUTOADDARG(invokeargs, '$ARG1', RowIndex, AUTO_ARG_IN)
				IF (PRESENT(ColumnIndex)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnIndex, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 0, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_Get_Default = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_Get_Default
  			INTEGER(INT_PTR_KIND()) FUNCTION Range_Get_NewEnum($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Get_NewEnum
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_NewEnum', $RETURN, AUTO_ARG_OUT, VT_UNKNOWN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -4, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_Get_NewEnum = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_Get_NewEnum
  			FUNCTION Range_GetAddIndent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetAddIndent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetAddIndent
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AddIndent', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1063, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetAddIndent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetAddIndent
  			CHARACTER*(2048) FUNCTION Range_GetAddress($OBJECT, RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetAddress
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowAbsolute	
				!DEC$ ATTRIBUTES REFERENCE	:: RowAbsolute
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnAbsolute	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnAbsolute
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: ReferenceStyle	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: ReferenceStyle
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: External	
				!DEC$ ATTRIBUTES REFERENCE	:: External
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RelativeTo	
				!DEC$ ATTRIBUTES REFERENCE	:: RelativeTo
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Address', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				IF (PRESENT(RowAbsolute)) CALL AUTOADDARG(invokeargs, '$ARG1', RowAbsolute, AUTO_ARG_IN)
				IF (PRESENT(ColumnAbsolute)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnAbsolute, AUTO_ARG_IN)
				IF (PRESENT(ReferenceStyle)) CALL AUTOADDARG(invokeargs, '$ARG3', ReferenceStyle)
				IF (PRESENT(External)) CALL AUTOADDARG(invokeargs, '$ARG4', External, AUTO_ARG_IN)
				IF (PRESENT(RelativeTo)) CALL AUTOADDARG(invokeargs, '$ARG5', RelativeTo, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 236, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetAddress = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetAddress
  			CHARACTER*(2048) FUNCTION Range_GetAddressLocal($OBJECT, RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetAddressLocal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowAbsolute	
				!DEC$ ATTRIBUTES REFERENCE	:: RowAbsolute
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnAbsolute	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnAbsolute
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: ReferenceStyle	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: ReferenceStyle
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: External	
				!DEC$ ATTRIBUTES REFERENCE	:: External
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RelativeTo	
				!DEC$ ATTRIBUTES REFERENCE	:: RelativeTo
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AddressLocal', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				IF (PRESENT(RowAbsolute)) CALL AUTOADDARG(invokeargs, '$ARG1', RowAbsolute, AUTO_ARG_IN)
				IF (PRESENT(ColumnAbsolute)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnAbsolute, AUTO_ARG_IN)
				IF (PRESENT(ReferenceStyle)) CALL AUTOADDARG(invokeargs, '$ARG3', ReferenceStyle)
				IF (PRESENT(External)) CALL AUTOADDARG(invokeargs, '$ARG4', External, AUTO_ARG_IN)
				IF (PRESENT(RelativeTo)) CALL AUTOADDARG(invokeargs, '$ARG5', RelativeTo, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 437, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetAddressLocal = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetAddressLocal
  			!Range_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetApplication
  			!Range_GetAreas return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetAreas($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetAreas
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Areas', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 568, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetAreas = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetAreas
  			!Range_GetBorders return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetBorders($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetBorders
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Borders', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 435, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetBorders = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetBorders
  			!Range_GetCells return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetCells($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Cells', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 238, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetCells = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetCells
  			!Range_GetCharacters return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetCharacters($OBJECT, Start, Length, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetCharacters
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Start	
				!DEC$ ATTRIBUTES REFERENCE	:: Start
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Length	
				!DEC$ ATTRIBUTES REFERENCE	:: Length
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Characters', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Start)) CALL AUTOADDARG(invokeargs, '$ARG1', Start, AUTO_ARG_IN)
				IF (PRESENT(Length)) CALL AUTOADDARG(invokeargs, '$ARG2', Length, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 603, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetCharacters = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetCharacters
  			INTEGER*4 FUNCTION Range_GetColumn($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetColumn
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Column', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 240, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetColumn = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetColumn
  			!Range_GetColumns return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetColumns($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetColumns
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Columns', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 241, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetColumns = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetColumns
  			FUNCTION Range_GetColumnWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetColumnWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetColumnWidth
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ColumnWidth', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 242, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetColumnWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetColumnWidth
  			!Range_GetComment return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetComment($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetComment
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Comment', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 910, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetComment = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetComment
  			INTEGER*4 FUNCTION Range_GetCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetCount
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Count', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 118, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetCount
  			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetCreator
  			!Range_GetCurrentArray return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetCurrentArray($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetCurrentArray
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentArray', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 501, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetCurrentArray = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetCurrentArray
  			!Range_GetCurrentRegion return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetCurrentRegion($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetCurrentRegion
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentRegion', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 243, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetCurrentRegion = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetCurrentRegion
  			!Range_GetDependents return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetDependents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetDependents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Dependents', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 543, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetDependents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetDependents
  			!Range_GetDirectDependents return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetDirectDependents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetDirectDependents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DirectDependents', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 545, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetDirectDependents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetDirectDependents
  			!Range_GetDirectPrecedents return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetDirectPrecedents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetDirectPrecedents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DirectPrecedents', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 546, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetDirectPrecedents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetDirectPrecedents
  			!Range_GetEnd return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetEnd($OBJECT, Direction, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetEnd
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Direction	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Direction
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'End', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Direction)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 500, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetEnd = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetEnd
  			!Range_GetEntireColumn return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetEntireColumn($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetEntireColumn
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EntireColumn', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 246, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetEntireColumn = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetEntireColumn
  			!Range_GetEntireRow return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetEntireRow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetEntireRow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EntireRow', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 247, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetEntireRow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetEntireRow
  			!Range_GetFont return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetFont($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFont
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Font', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 146, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFont = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFont
  			!Range_GetFormatConditions return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetFormatConditions($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormatConditions
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormatConditions', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1392, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormatConditions = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormatConditions
  			FUNCTION Range_GetFormula($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormula
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetFormula
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Formula', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 261, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormula = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormula
  			FUNCTION Range_GetFormulaArray($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormulaArray
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetFormulaArray
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaArray', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 586, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormulaArray = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormulaArray
  			FUNCTION Range_GetFormulaHidden($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormulaHidden
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetFormulaHidden
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaHidden', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 262, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormulaHidden = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormulaHidden
  			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetFormulaLabel($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormulaLabel
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaLabel', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1380, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormulaLabel = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormulaLabel
  			FUNCTION Range_GetFormulaLocal($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormulaLocal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetFormulaLocal
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaLocal', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 263, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormulaLocal = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormulaLocal
  			FUNCTION Range_GetFormulaR1C1($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormulaR1C1
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetFormulaR1C1
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaR1C1', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 264, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormulaR1C1 = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormulaR1C1
  			FUNCTION Range_GetFormulaR1C1Local($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetFormulaR1C1Local
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetFormulaR1C1Local
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaR1C1Local', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 265, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetFormulaR1C1Local = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetFormulaR1C1Local
  			FUNCTION Range_GetHasArray($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetHasArray
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetHasArray
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasArray', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 266, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetHasArray = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetHasArray
  			FUNCTION Range_GetHasFormula($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetHasFormula
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetHasFormula
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HasFormula', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 267, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetHasFormula = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetHasFormula
  			FUNCTION Range_GetHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetHeight
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Height', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 123, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetHeight
  			FUNCTION Range_GetHidden($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetHidden
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetHidden
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Hidden', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 268, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetHidden = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetHidden
  			FUNCTION Range_GetHorizontalAlignment($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetHorizontalAlignment
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetHorizontalAlignment
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HorizontalAlignment', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 136, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetHorizontalAlignment = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetHorizontalAlignment
  			!Range_GetHyperlinks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetHyperlinks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetHyperlinks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Hyperlinks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1393, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetHyperlinks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetHyperlinks
  			FUNCTION Range_GetIndentLevel($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetIndentLevel
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetIndentLevel
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'IndentLevel', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 201, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetIndentLevel = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetIndentLevel
  			!Range_GetInterior return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetInterior($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetInterior
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Interior', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 129, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetInterior = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetInterior
  			FUNCTION Range_GetItem($OBJECT, RowIndex, ColumnIndex, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetItem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: RowIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: RowIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnIndex
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetItem
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Item', $RETURN, AUTO_ARG_OUT)
				CALL AUTOADDARG(invokeargs, '$ARG1', RowIndex, AUTO_ARG_IN)
				IF (PRESENT(ColumnIndex)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnIndex, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 170, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetItem = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetItem
  			FUNCTION Range_GetLeft($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetLeft
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetLeft
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Left', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 127, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetLeft = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetLeft
  			INTEGER*4 FUNCTION Range_GetListHeaderRows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetListHeaderRows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ListHeaderRows', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1187, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetListHeaderRows = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetListHeaderRows
  			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetLocationInTable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetLocationInTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'LocationInTable', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 691, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetLocationInTable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetLocationInTable
  			FUNCTION Range_GetLocked($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetLocked
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetLocked
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Locked', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 269, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetLocked = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetLocked
  			!Range_GetMergeArea return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetMergeArea($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetMergeArea
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MergeArea', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1385, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetMergeArea = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetMergeArea
  			FUNCTION Range_GetMergeCells($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetMergeCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetMergeCells
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MergeCells', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 208, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetMergeCells = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetMergeCells
  			FUNCTION Range_GetName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetName
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetName
  			!Range_GetNext return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetNext($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetNext
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Next', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 502, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetNext = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetNext
  			FUNCTION Range_GetNumberFormat($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetNumberFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetNumberFormat
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'NumberFormat', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 193, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetNumberFormat = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetNumberFormat
  			FUNCTION Range_GetNumberFormatLocal($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetNumberFormatLocal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetNumberFormatLocal
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'NumberFormatLocal', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1097, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetNumberFormatLocal = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetNumberFormatLocal
  			!Range_GetOffset return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetOffset($OBJECT, RowOffset, ColumnOffset, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetOffset
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowOffset	
				!DEC$ ATTRIBUTES REFERENCE	:: RowOffset
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnOffset	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnOffset
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Offset', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(RowOffset)) CALL AUTOADDARG(invokeargs, '$ARG1', RowOffset, AUTO_ARG_IN)
				IF (PRESENT(ColumnOffset)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnOffset, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 254, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetOffset = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetOffset
  			FUNCTION Range_GetOrientation($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetOrientation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetOrientation
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Orientation', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 134, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetOrientation = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetOrientation
  			FUNCTION Range_GetOutlineLevel($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetOutlineLevel
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetOutlineLevel
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OutlineLevel', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 271, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetOutlineLevel = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetOutlineLevel
  			INTEGER*4 FUNCTION Range_GetPageBreak($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPageBreak
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PageBreak', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 255, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPageBreak = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPageBreak
  			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetParent
  			!Range_GetPhonetic return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetPhonetic($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPhonetic
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Phonetic', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1391, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPhonetic = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPhonetic
  			!Range_GetPivotField return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetPivotField($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPivotField
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PivotField', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 731, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPivotField = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPivotField
  			!Range_GetPivotItem return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetPivotItem($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPivotItem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PivotItem', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 740, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPivotItem = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPivotItem
  			!Range_GetPivotTable return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetPivotTable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPivotTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PivotTable', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 716, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPivotTable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPivotTable
  			!Range_GetPrecedents return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetPrecedents($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPrecedents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Precedents', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 544, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPrecedents = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPrecedents
  			FUNCTION Range_GetPrefixCharacter($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPrefixCharacter
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetPrefixCharacter
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PrefixCharacter', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 504, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPrefixCharacter = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPrefixCharacter
  			!Range_GetPrevious return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetPrevious($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetPrevious
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Previous', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 503, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetPrevious = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetPrevious
  			!Range_GetQueryTable return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetQueryTable($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetQueryTable
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'QueryTable', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1386, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetQueryTable = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetQueryTable
  			!Range_GetRange return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetRange($OBJECT, Cell1, Cell2, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetRange
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Cell1	
				!DEC$ ATTRIBUTES REFERENCE	:: Cell1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Cell2	
				!DEC$ ATTRIBUTES REFERENCE	:: Cell2
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Range', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Cell1, AUTO_ARG_IN)
				IF (PRESENT(Cell2)) CALL AUTOADDARG(invokeargs, '$ARG2', Cell2, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 197, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetRange = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetRange
  			INTEGER*4 FUNCTION Range_GetReadingOrder($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetReadingOrder
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ReadingOrder', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 975, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetReadingOrder = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetReadingOrder
  			!Range_GetResize return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetResize($OBJECT, RowSize, ColumnSize, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetResize
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowSize	
				!DEC$ ATTRIBUTES REFERENCE	:: RowSize
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnSize	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnSize
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Resize', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(RowSize)) CALL AUTOADDARG(invokeargs, '$ARG1', RowSize, AUTO_ARG_IN)
				IF (PRESENT(ColumnSize)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnSize, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 256, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetResize = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetResize
  			INTEGER*4 FUNCTION Range_GetRow($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetRow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Row', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 257, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetRow = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetRow
  			FUNCTION Range_GetRowHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetRowHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetRowHeight
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RowHeight', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 272, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetRowHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetRowHeight
  			!Range_GetRows return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetRows($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetRows
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rows', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 258, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetRows = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetRows
  			FUNCTION Range_GetShowDetail($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetShowDetail
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetShowDetail
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowDetail', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 585, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetShowDetail = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetShowDetail
  			FUNCTION Range_GetShrinkToFit($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetShrinkToFit
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetShrinkToFit
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShrinkToFit', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 209, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetShrinkToFit = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetShrinkToFit
  			!Range_GetSoundNote return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetSoundNote($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetSoundNote
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SoundNote', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 916, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetSoundNote = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetSoundNote
  			FUNCTION Range_GetStyle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetStyle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetStyle
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Style', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 260, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetStyle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetStyle
  			FUNCTION Range_GetSummary($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetSummary
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetSummary
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Summary', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 273, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetSummary = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetSummary
  			FUNCTION Range_GetText($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetText
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetText
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Text', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 138, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetText = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetText
  			FUNCTION Range_GetTop($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetTop
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetTop
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Top', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 126, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetTop = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetTop
  			FUNCTION Range_GetUseStandardHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetUseStandardHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetUseStandardHeight
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UseStandardHeight', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 274, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetUseStandardHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetUseStandardHeight
  			FUNCTION Range_GetUseStandardWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetUseStandardWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetUseStandardWidth
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UseStandardWidth', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 275, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetUseStandardWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetUseStandardWidth
  			!Range_GetValidation return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetValidation($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetValidation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Validation', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1387, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetValidation = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetValidation
  			FUNCTION Range_GetValue($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetValue
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetValue
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Value', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 6, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetValue = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetValue
  			FUNCTION Range_GetValue2($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetValue2
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetValue2
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Value2', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1388, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetValue2 = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetValue2
  			FUNCTION Range_GetVerticalAlignment($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetVerticalAlignment
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetVerticalAlignment
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'VerticalAlignment', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 137, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetVerticalAlignment = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetVerticalAlignment
  			FUNCTION Range_GetWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetWidth
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Width', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 122, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetWidth
  			!Range_GetWorksheet return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_GetWorksheet($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetWorksheet
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Worksheet', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 348, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetWorksheet = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetWorksheet
  			FUNCTION Range_GetWrapText($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GetWrapText
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_GetWrapText
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WrapText', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 276, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GetWrapText = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GetWrapText
  			LOGICAL*2 FUNCTION Range_GoalSeek($OBJECT, Goal, ChangingCell, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_GoalSeek
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Goal	
				!DEC$ ATTRIBUTES REFERENCE	:: Goal
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: ChangingCell	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: ChangingCell
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', Goal, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG2', ChangingCell, AUTO_ARG_IN, VT_DISPATCH)
				$$STATUS = AUTOINVOKE($OBJECT, 472, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_GoalSeek = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_GoalSeek
  			FUNCTION Range_Group($OBJECT, Start, End, By, Periods, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Group
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Start	
				!DEC$ ATTRIBUTES REFERENCE	:: Start
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: End	
				!DEC$ ATTRIBUTES REFERENCE	:: End
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: By	
				!DEC$ ATTRIBUTES REFERENCE	:: By
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Periods	
				!DEC$ ATTRIBUTES REFERENCE	:: Periods
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_Group
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Start)) CALL AUTOADDARG(invokeargs, '$ARG1', Start, AUTO_ARG_IN)
				IF (PRESENT(End)) CALL AUTOADDARG(invokeargs, '$ARG2', End, AUTO_ARG_IN)
				IF (PRESENT(By)) CALL AUTOADDARG(invokeargs, '$ARG3', By, AUTO_ARG_IN)
				IF (PRESENT(Periods)) CALL AUTOADDARG(invokeargs, '$ARG4', Periods, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 46, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_Group = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_Group
  			SUBROUTINE Range_Insert($OBJECT, Shift, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Insert
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Shift	
				!DEC$ ATTRIBUTES REFERENCE	:: Shift
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Shift)) CALL AUTOADDARG(invokeargs, '$ARG1', Shift, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 252, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Insert
  			SUBROUTINE Range_InsertIndent($OBJECT, InsertAmount, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_InsertIndent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: InsertAmount	
				!DEC$ ATTRIBUTES REFERENCE	:: InsertAmount
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', InsertAmount)
				$$STATUS = AUTOINVOKE($OBJECT, 1381, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_InsertIndent
  			SUBROUTINE Range_Justify($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Justify
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 495, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Justify
  			SUBROUTINE Range_ListNames($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ListNames
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 253, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ListNames
  			SUBROUTINE Range_Merge($OBJECT, Across, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Merge
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Across	
				!DEC$ ATTRIBUTES REFERENCE	:: Across
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Across)) CALL AUTOADDARG(invokeargs, '$ARG1', Across, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 564, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Merge
  			SUBROUTINE Range_NavigateArrow($OBJECT, TowardPrecedent, ArrowNumber, LinkNumber, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_NavigateArrow
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TowardPrecedent	
				!DEC$ ATTRIBUTES REFERENCE	:: TowardPrecedent
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ArrowNumber	
				!DEC$ ATTRIBUTES REFERENCE	:: ArrowNumber
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LinkNumber	
				!DEC$ ATTRIBUTES REFERENCE	:: LinkNumber
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(TowardPrecedent)) CALL AUTOADDARG(invokeargs, '$ARG1', TowardPrecedent, AUTO_ARG_IN)
				IF (PRESENT(ArrowNumber)) CALL AUTOADDARG(invokeargs, '$ARG2', ArrowNumber, AUTO_ARG_IN)
				IF (PRESENT(LinkNumber)) CALL AUTOADDARG(invokeargs, '$ARG3', LinkNumber, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1032, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_NavigateArrow
  			CHARACTER*(2048) FUNCTION Range_NoteText($OBJECT, Text, Start, Length, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_NoteText
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Text	
				!DEC$ ATTRIBUTES REFERENCE	:: Text
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Start	
				!DEC$ ATTRIBUTES REFERENCE	:: Start
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Length	
				!DEC$ ATTRIBUTES REFERENCE	:: Length
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_BSTR)
				IF (PRESENT(Text)) CALL AUTOADDARG(invokeargs, '$ARG1', Text, AUTO_ARG_IN)
				IF (PRESENT(Start)) CALL AUTOADDARG(invokeargs, '$ARG2', Start, AUTO_ARG_IN)
				IF (PRESENT(Length)) CALL AUTOADDARG(invokeargs, '$ARG3', Length, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1127, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_NoteText = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_NoteText
  			SUBROUTINE Range_Parse($OBJECT, ParseLine, Destination, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Parse
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ParseLine	
				!DEC$ ATTRIBUTES REFERENCE	:: ParseLine
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Destination	
				!DEC$ ATTRIBUTES REFERENCE	:: Destination
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(ParseLine)) CALL AUTOADDARG(invokeargs, '$ARG1', ParseLine, AUTO_ARG_IN)
				IF (PRESENT(Destination)) CALL AUTOADDARG(invokeargs, '$ARG2', Destination, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 477, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Parse
  			SUBROUTINE Range_PasteSpecial($OBJECT, Paste, Operation, SkipBlanks, Transpose, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_PasteSpecial
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Paste	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Paste
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Operation	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Operation
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SkipBlanks	
				!DEC$ ATTRIBUTES REFERENCE	:: SkipBlanks
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Transpose	
				!DEC$ ATTRIBUTES REFERENCE	:: Transpose
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Paste)) CALL AUTOADDARG(invokeargs, '$ARG1', Paste)
				IF (PRESENT(Operation)) CALL AUTOADDARG(invokeargs, '$ARG2', Operation)
				IF (PRESENT(SkipBlanks)) CALL AUTOADDARG(invokeargs, '$ARG3', SkipBlanks, AUTO_ARG_IN)
				IF (PRESENT(Transpose)) CALL AUTOADDARG(invokeargs, '$ARG4', Transpose, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1027, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_PasteSpecial
  			SUBROUTINE Range_PrintOut($OBJECT, From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_PrintOut
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: From	
				!DEC$ ATTRIBUTES REFERENCE	:: From
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: To	
				!DEC$ ATTRIBUTES REFERENCE	:: To
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Copies	
				!DEC$ ATTRIBUTES REFERENCE	:: Copies
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Preview	
				!DEC$ ATTRIBUTES REFERENCE	:: Preview
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ActivePrinter	
				!DEC$ ATTRIBUTES REFERENCE	:: ActivePrinter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PrintToFile	
				!DEC$ ATTRIBUTES REFERENCE	:: PrintToFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Collate	
				!DEC$ ATTRIBUTES REFERENCE	:: Collate
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(From)) CALL AUTOADDARG(invokeargs, '$ARG1', From, AUTO_ARG_IN)
				IF (PRESENT(To)) CALL AUTOADDARG(invokeargs, '$ARG2', To, AUTO_ARG_IN)
				IF (PRESENT(Copies)) CALL AUTOADDARG(invokeargs, '$ARG3', Copies, AUTO_ARG_IN)
				IF (PRESENT(Preview)) CALL AUTOADDARG(invokeargs, '$ARG4', Preview, AUTO_ARG_IN)
				IF (PRESENT(ActivePrinter)) CALL AUTOADDARG(invokeargs, '$ARG5', ActivePrinter, AUTO_ARG_IN)
				IF (PRESENT(PrintToFile)) CALL AUTOADDARG(invokeargs, '$ARG6', PrintToFile, AUTO_ARG_IN)
				IF (PRESENT(Collate)) CALL AUTOADDARG(invokeargs, '$ARG7', Collate, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 905, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_PrintOut
  			SUBROUTINE Range_PrintPreview($OBJECT, EnableChanges, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_PrintPreview
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: EnableChanges	
				!DEC$ ATTRIBUTES REFERENCE	:: EnableChanges
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(EnableChanges)) CALL AUTOADDARG(invokeargs, '$ARG1', EnableChanges, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 281, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_PrintPreview
  			SUBROUTINE Range_RemoveSubtotal($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_RemoveSubtotal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 883, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_RemoveSubtotal
  			LOGICAL*2 FUNCTION Range_Replace($OBJECT, What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, MatchControlCharacters, MatchDiacritics, MatchKashida, MatchAlefHamza, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Replace
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: What	
				!DEC$ ATTRIBUTES REFERENCE	:: What
				TYPE (VARIANT), INTENT(IN)	:: Replacement	
				!DEC$ ATTRIBUTES REFERENCE	:: Replacement
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: LookAt	
				!DEC$ ATTRIBUTES REFERENCE	:: LookAt
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: SearchOrder	
				!DEC$ ATTRIBUTES REFERENCE	:: SearchOrder
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchCase	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchCase
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchByte	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchByte
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchControlCharacters	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchControlCharacters
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchDiacritics	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchDiacritics
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchKashida	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchKashida
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchAlefHamza	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchAlefHamza
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				CALL AUTOADDARG(invokeargs, '$ARG1', What, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG2', Replacement, AUTO_ARG_IN)
				IF (PRESENT(LookAt)) CALL AUTOADDARG(invokeargs, '$ARG3', LookAt, AUTO_ARG_IN)
				IF (PRESENT(SearchOrder)) CALL AUTOADDARG(invokeargs, '$ARG4', SearchOrder, AUTO_ARG_IN)
				IF (PRESENT(MatchCase)) CALL AUTOADDARG(invokeargs, '$ARG5', MatchCase, AUTO_ARG_IN)
				IF (PRESENT(MatchByte)) CALL AUTOADDARG(invokeargs, '$ARG6', MatchByte, AUTO_ARG_IN)
				IF (PRESENT(MatchControlCharacters)) CALL AUTOADDARG(invokeargs, '$ARG7', MatchControlCharacters, AUTO_ARG_IN)
				IF (PRESENT(MatchDiacritics)) CALL AUTOADDARG(invokeargs, '$ARG8', MatchDiacritics, AUTO_ARG_IN)
				IF (PRESENT(MatchKashida)) CALL AUTOADDARG(invokeargs, '$ARG9', MatchKashida, AUTO_ARG_IN)
				IF (PRESENT(MatchAlefHamza)) CALL AUTOADDARG(invokeargs, '$ARG10', MatchAlefHamza, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 226, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_Replace = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_Replace
  			!Range_RowDifferences return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_RowDifferences($OBJECT, Comparison, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_RowDifferences
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Comparison	
				!DEC$ ATTRIBUTES REFERENCE	:: Comparison
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Comparison, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 511, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_RowDifferences = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_RowDifferences
  			FUNCTION Range_Run($OBJECT, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Run
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg1	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg2	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg3	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg3
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg4	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg4
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg5	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg5
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg6	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg6
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg7	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg7
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg8	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg8
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg9	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg9
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg10	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg10
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg11	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg11
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg12	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg12
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg13	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg13
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg14	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg14
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg15	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg15
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg16	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg16
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg17	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg17
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg18	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg18
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg19	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg19
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg20	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg20
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg21	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg21
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg22	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg22
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg23	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg23
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg24	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg24
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg25	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg25
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg26	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg26
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg27	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg27
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg28	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg28
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg29	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg29
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Arg30	
				!DEC$ ATTRIBUTES REFERENCE	:: Arg30
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Range_Run
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT)
				IF (PRESENT(Arg1)) CALL AUTOADDARG(invokeargs, '$ARG1', Arg1, AUTO_ARG_IN)
				IF (PRESENT(Arg2)) CALL AUTOADDARG(invokeargs, '$ARG2', Arg2, AUTO_ARG_IN)
				IF (PRESENT(Arg3)) CALL AUTOADDARG(invokeargs, '$ARG3', Arg3, AUTO_ARG_IN)
				IF (PRESENT(Arg4)) CALL AUTOADDARG(invokeargs, '$ARG4', Arg4, AUTO_ARG_IN)
				IF (PRESENT(Arg5)) CALL AUTOADDARG(invokeargs, '$ARG5', Arg5, AUTO_ARG_IN)
				IF (PRESENT(Arg6)) CALL AUTOADDARG(invokeargs, '$ARG6', Arg6, AUTO_ARG_IN)
				IF (PRESENT(Arg7)) CALL AUTOADDARG(invokeargs, '$ARG7', Arg7, AUTO_ARG_IN)
				IF (PRESENT(Arg8)) CALL AUTOADDARG(invokeargs, '$ARG8', Arg8, AUTO_ARG_IN)
				IF (PRESENT(Arg9)) CALL AUTOADDARG(invokeargs, '$ARG9', Arg9, AUTO_ARG_IN)
				IF (PRESENT(Arg10)) CALL AUTOADDARG(invokeargs, '$ARG10', Arg10, AUTO_ARG_IN)
				IF (PRESENT(Arg11)) CALL AUTOADDARG(invokeargs, '$ARG11', Arg11, AUTO_ARG_IN)
				IF (PRESENT(Arg12)) CALL AUTOADDARG(invokeargs, '$ARG12', Arg12, AUTO_ARG_IN)
				IF (PRESENT(Arg13)) CALL AUTOADDARG(invokeargs, '$ARG13', Arg13, AUTO_ARG_IN)
				IF (PRESENT(Arg14)) CALL AUTOADDARG(invokeargs, '$ARG14', Arg14, AUTO_ARG_IN)
				IF (PRESENT(Arg15)) CALL AUTOADDARG(invokeargs, '$ARG15', Arg15, AUTO_ARG_IN)
				IF (PRESENT(Arg16)) CALL AUTOADDARG(invokeargs, '$ARG16', Arg16, AUTO_ARG_IN)
				IF (PRESENT(Arg17)) CALL AUTOADDARG(invokeargs, '$ARG17', Arg17, AUTO_ARG_IN)
				IF (PRESENT(Arg18)) CALL AUTOADDARG(invokeargs, '$ARG18', Arg18, AUTO_ARG_IN)
				IF (PRESENT(Arg19)) CALL AUTOADDARG(invokeargs, '$ARG19', Arg19, AUTO_ARG_IN)
				IF (PRESENT(Arg20)) CALL AUTOADDARG(invokeargs, '$ARG20', Arg20, AUTO_ARG_IN)
				IF (PRESENT(Arg21)) CALL AUTOADDARG(invokeargs, '$ARG21', Arg21, AUTO_ARG_IN)
				IF (PRESENT(Arg22)) CALL AUTOADDARG(invokeargs, '$ARG22', Arg22, AUTO_ARG_IN)
				IF (PRESENT(Arg23)) CALL AUTOADDARG(invokeargs, '$ARG23', Arg23, AUTO_ARG_IN)
				IF (PRESENT(Arg24)) CALL AUTOADDARG(invokeargs, '$ARG24', Arg24, AUTO_ARG_IN)
				IF (PRESENT(Arg25)) CALL AUTOADDARG(invokeargs, '$ARG25', Arg25, AUTO_ARG_IN)
				IF (PRESENT(Arg26)) CALL AUTOADDARG(invokeargs, '$ARG26', Arg26, AUTO_ARG_IN)
				IF (PRESENT(Arg27)) CALL AUTOADDARG(invokeargs, '$ARG27', Arg27, AUTO_ARG_IN)
				IF (PRESENT(Arg28)) CALL AUTOADDARG(invokeargs, '$ARG28', Arg28, AUTO_ARG_IN)
				IF (PRESENT(Arg29)) CALL AUTOADDARG(invokeargs, '$ARG29', Arg29, AUTO_ARG_IN)
				IF (PRESENT(Arg30)) CALL AUTOADDARG(invokeargs, '$ARG30', Arg30, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 259, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_Run = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_Run
  			SUBROUTINE Range_Select($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Select
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 235, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Select
  			SUBROUTINE Range_Set_Default($OBJECT, RowIndex, ColumnIndex, $ARG3, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Set_Default
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: RowIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnIndex
				TYPE (VARIANT), INTENT(IN)	:: $ARG3	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG3
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_Default', $ARG3, AUTO_ARG_IN)
				IF (PRESENT(RowIndex)) CALL AUTOADDARG(invokeargs, '$ARG1', RowIndex, AUTO_ARG_IN)
				IF (PRESENT(ColumnIndex)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnIndex, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 0, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Set_Default
  			SUBROUTINE Range_SetAddIndent($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetAddIndent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AddIndent', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1063, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetAddIndent
  			SUBROUTINE Range_SetColumnWidth($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetColumnWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ColumnWidth', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 242, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetColumnWidth
  			SUBROUTINE Range_SetFormula($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetFormula
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Formula', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 261, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetFormula
  			SUBROUTINE Range_SetFormulaArray($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetFormulaArray
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaArray', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 586, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetFormulaArray
  			SUBROUTINE Range_SetFormulaHidden($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetFormulaHidden
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaHidden', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 262, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetFormulaHidden
  			SUBROUTINE Range_SetFormulaLabel($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetFormulaLabel
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaLabel', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1380, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetFormulaLabel
  			SUBROUTINE Range_SetFormulaLocal($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetFormulaLocal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaLocal', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 263, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetFormulaLocal
  			SUBROUTINE Range_SetFormulaR1C1($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetFormulaR1C1
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaR1C1', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 264, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetFormulaR1C1
  			SUBROUTINE Range_SetFormulaR1C1Local($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetFormulaR1C1Local
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FormulaR1C1Local', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 265, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetFormulaR1C1Local
  			SUBROUTINE Range_SetHidden($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetHidden
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Hidden', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 268, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetHidden
  			SUBROUTINE Range_SetHorizontalAlignment($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetHorizontalAlignment
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HorizontalAlignment', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 136, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetHorizontalAlignment
  			SUBROUTINE Range_SetIndentLevel($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetIndentLevel
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'IndentLevel', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 201, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetIndentLevel
  			SUBROUTINE Range_SetItem($OBJECT, RowIndex, ColumnIndex, $ARG3, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetItem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: RowIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: RowIndex
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnIndex	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnIndex
				TYPE (VARIANT), INTENT(IN)	:: $ARG3	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG3
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Item', $ARG3, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG1', RowIndex, AUTO_ARG_IN)
				IF (PRESENT(ColumnIndex)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnIndex, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 170, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetItem
  			SUBROUTINE Range_SetLocked($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetLocked
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Locked', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 269, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetLocked
  			SUBROUTINE Range_SetMergeCells($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetMergeCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MergeCells', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 208, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetMergeCells
  			SUBROUTINE Range_SetName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetName
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Name', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 110, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetName
  			SUBROUTINE Range_SetNumberFormat($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetNumberFormat
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'NumberFormat', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 193, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetNumberFormat
  			SUBROUTINE Range_SetNumberFormatLocal($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetNumberFormatLocal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'NumberFormatLocal', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1097, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetNumberFormatLocal
  			SUBROUTINE Range_SetOrientation($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetOrientation
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Orientation', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 134, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetOrientation
  			SUBROUTINE Range_SetOutlineLevel($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetOutlineLevel
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'OutlineLevel', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 271, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetOutlineLevel
  			SUBROUTINE Range_SetPageBreak($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetPageBreak
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PageBreak', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 255, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetPageBreak
  			SUBROUTINE Range_SetReadingOrder($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetReadingOrder
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ReadingOrder', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 975, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetReadingOrder
  			SUBROUTINE Range_SetRowHeight($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetRowHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'RowHeight', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 272, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetRowHeight
  			SUBROUTINE Range_SetShowDetail($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetShowDetail
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowDetail', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 585, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetShowDetail
  			SUBROUTINE Range_SetShrinkToFit($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetShrinkToFit
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShrinkToFit', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 209, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetShrinkToFit
  			SUBROUTINE Range_SetStyle($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetStyle
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Style', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 260, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetStyle
  			SUBROUTINE Range_SetUseStandardHeight($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetUseStandardHeight
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UseStandardHeight', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 274, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetUseStandardHeight
  			SUBROUTINE Range_SetUseStandardWidth($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetUseStandardWidth
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'UseStandardWidth', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 275, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetUseStandardWidth
  			SUBROUTINE Range_SetValue($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetValue
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Value', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 6, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetValue
  			SUBROUTINE Range_SetValue2($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetValue2
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Value2', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 1388, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetValue2
  			SUBROUTINE Range_SetVerticalAlignment($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetVerticalAlignment
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'VerticalAlignment', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 137, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetVerticalAlignment
  			SUBROUTINE Range_SetWrapText($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SetWrapText
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'WrapText', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 276, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SetWrapText
  			SUBROUTINE Range_Show($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Show
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 496, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Show
  			SUBROUTINE Range_ShowDependents($OBJECT, Remove, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ShowDependents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Remove	
				!DEC$ ATTRIBUTES REFERENCE	:: Remove
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Remove)) CALL AUTOADDARG(invokeargs, '$ARG1', Remove, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 877, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ShowDependents
  			SUBROUTINE Range_ShowErrors($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ShowErrors
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 878, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ShowErrors
  			SUBROUTINE Range_ShowPrecedents($OBJECT, Remove, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_ShowPrecedents
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Remove	
				!DEC$ ATTRIBUTES REFERENCE	:: Remove
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Remove)) CALL AUTOADDARG(invokeargs, '$ARG1', Remove, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 879, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_ShowPrecedents
  			SUBROUTINE Range_Sort($OBJECT, Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, IgnoreControlCharacters, IgnoreDiacritics, IgnoreKashida, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Sort
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Key1	
				!DEC$ ATTRIBUTES REFERENCE	:: Key1
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Order1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Order1
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Key2	
				!DEC$ ATTRIBUTES REFERENCE	:: Key2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Order2	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Order2
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Key3	
				!DEC$ ATTRIBUTES REFERENCE	:: Key3
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Order3	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Order3
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Header	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Header
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: OrderCustom	
				!DEC$ ATTRIBUTES REFERENCE	:: OrderCustom
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: MatchCase	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchCase
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: Orientation	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Orientation
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: SortMethod	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: SortMethod
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreControlCharacters	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreControlCharacters
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreDiacritics	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreDiacritics
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreKashida	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreKashida
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Key1)) CALL AUTOADDARG(invokeargs, '$ARG1', Key1, AUTO_ARG_IN)
				IF (PRESENT(Order1)) CALL AUTOADDARG(invokeargs, '$ARG2', Order1)
				IF (PRESENT(Key2)) CALL AUTOADDARG(invokeargs, '$ARG3', Key2, AUTO_ARG_IN)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG4', Type, AUTO_ARG_IN)
				IF (PRESENT(Order2)) CALL AUTOADDARG(invokeargs, '$ARG5', Order2)
				IF (PRESENT(Key3)) CALL AUTOADDARG(invokeargs, '$ARG6', Key3, AUTO_ARG_IN)
				IF (PRESENT(Order3)) CALL AUTOADDARG(invokeargs, '$ARG7', Order3)
				IF (PRESENT(Header)) CALL AUTOADDARG(invokeargs, '$ARG8', Header)
				IF (PRESENT(OrderCustom)) CALL AUTOADDARG(invokeargs, '$ARG9', OrderCustom, AUTO_ARG_IN)
				IF (PRESENT(MatchCase)) CALL AUTOADDARG(invokeargs, '$ARG10', MatchCase, AUTO_ARG_IN)
				IF (PRESENT(Orientation)) CALL AUTOADDARG(invokeargs, '$ARG11', Orientation)
				IF (PRESENT(SortMethod)) CALL AUTOADDARG(invokeargs, '$ARG12', SortMethod)
				IF (PRESENT(IgnoreControlCharacters)) CALL AUTOADDARG(invokeargs, '$ARG13', IgnoreControlCharacters, AUTO_ARG_IN)
				IF (PRESENT(IgnoreDiacritics)) CALL AUTOADDARG(invokeargs, '$ARG14', IgnoreDiacritics, AUTO_ARG_IN)
				IF (PRESENT(IgnoreKashida)) CALL AUTOADDARG(invokeargs, '$ARG15', IgnoreKashida, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 880, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Sort
  			SUBROUTINE Range_SortSpecial($OBJECT, SortMethod, Key1, Order1, Type, Key2, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SortSpecial
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: SortMethod	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: SortMethod
				TYPE (VARIANT), INTENT(IN)	:: Key1	
				!DEC$ ATTRIBUTES REFERENCE	:: Key1
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Order1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Order1
				TYPE (VARIANT), INTENT(IN)	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				TYPE (VARIANT), INTENT(IN)	:: Key2	
				!DEC$ ATTRIBUTES REFERENCE	:: Key2
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Order2	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Order2
				TYPE (VARIANT), INTENT(IN)	:: Key3	
				!DEC$ ATTRIBUTES REFERENCE	:: Key3
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Order3	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Order3
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Header	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Header
				TYPE (VARIANT), INTENT(IN)	:: OrderCustom	
				!DEC$ ATTRIBUTES REFERENCE	:: OrderCustom
				TYPE (VARIANT), INTENT(IN)	:: MatchCase	
				!DEC$ ATTRIBUTES REFERENCE	:: MatchCase
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Orientation	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Orientation
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', SortMethod)
				CALL AUTOADDARG(invokeargs, '$ARG2', Key1, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG3', Order1)
				CALL AUTOADDARG(invokeargs, '$ARG4', Type, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG5', Key2, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG6', Order2)
				CALL AUTOADDARG(invokeargs, '$ARG7', Key3, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG8', Order3)
				CALL AUTOADDARG(invokeargs, '$ARG9', Header)
				CALL AUTOADDARG(invokeargs, '$ARG10', OrderCustom, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG11', MatchCase, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG12', Orientation)
				$$STATUS = AUTOINVOKE($OBJECT, 881, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SortSpecial
  			!Range_SpecialCells return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Range_SpecialCells($OBJECT, Type, Value, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SpecialCells
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Value	
				!DEC$ ATTRIBUTES REFERENCE	:: Value
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Type)
				IF (PRESENT(Value)) CALL AUTOADDARG(invokeargs, '$ARG2', Value, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 410, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Range_SpecialCells = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Range_SpecialCells
  			SUBROUTINE Range_SubscribeTo($OBJECT, Edition, Format, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_SubscribeTo
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Edition	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Edition
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Format	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Edition, AUTO_ARG_IN, VT_BSTR)
				CALL AUTOADDARG(invokeargs, '$ARG2', Format)
				$$STATUS = AUTOINVOKE($OBJECT, 481, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_SubscribeTo
  			SUBROUTINE Range_Subtotal($OBJECT, GroupBy, Function, TotalList, Replace, PageBreaks, SummaryBelowData, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Subtotal
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: GroupBy	
				!DEC$ ATTRIBUTES REFERENCE	:: GroupBy
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Function	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Function
				TYPE (VARIANT), INTENT(IN)	:: TotalList	
				!DEC$ ATTRIBUTES REFERENCE	:: TotalList
				TYPE (VARIANT), INTENT(IN)	:: Replace	
				!DEC$ ATTRIBUTES REFERENCE	:: Replace
				TYPE (VARIANT), INTENT(IN)	:: PageBreaks	
				!DEC$ ATTRIBUTES REFERENCE	:: PageBreaks
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: SummaryBelowData	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: SummaryBelowData
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', GroupBy)
				CALL AUTOADDARG(invokeargs, '$ARG2', Function)
				CALL AUTOADDARG(invokeargs, '$ARG3', TotalList, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG4', Replace, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG5', PageBreaks, AUTO_ARG_IN)
				CALL AUTOADDARG(invokeargs, '$ARG6', SummaryBelowData)
				$$STATUS = AUTOINVOKE($OBJECT, 882, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Subtotal
  			SUBROUTINE Range_Table($OBJECT, RowInput, ColumnInput, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Table
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: RowInput	
				!DEC$ ATTRIBUTES REFERENCE	:: RowInput
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ColumnInput	
				!DEC$ ATTRIBUTES REFERENCE	:: ColumnInput
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(RowInput)) CALL AUTOADDARG(invokeargs, '$ARG1', RowInput, AUTO_ARG_IN)
				IF (PRESENT(ColumnInput)) CALL AUTOADDARG(invokeargs, '$ARG2', ColumnInput, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 497, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Table
  			SUBROUTINE Range_TextToColumns($OBJECT, Destination, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_TextToColumns
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Destination	
				!DEC$ ATTRIBUTES REFERENCE	:: Destination
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: DataType	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: DataType
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: TextQualifier	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: TextQualifier
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ConsecutiveDelimiter	
				!DEC$ ATTRIBUTES REFERENCE	:: ConsecutiveDelimiter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Tab	
				!DEC$ ATTRIBUTES REFERENCE	:: Tab
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Semicolon	
				!DEC$ ATTRIBUTES REFERENCE	:: Semicolon
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Comma	
				!DEC$ ATTRIBUTES REFERENCE	:: Comma
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Space	
				!DEC$ ATTRIBUTES REFERENCE	:: Space
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Other	
				!DEC$ ATTRIBUTES REFERENCE	:: Other
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: OtherChar	
				!DEC$ ATTRIBUTES REFERENCE	:: OtherChar
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FieldInfo	
				!DEC$ ATTRIBUTES REFERENCE	:: FieldInfo
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Destination)) CALL AUTOADDARG(invokeargs, '$ARG1', Destination, AUTO_ARG_IN)
				IF (PRESENT(DataType)) CALL AUTOADDARG(invokeargs, '$ARG2', DataType)
				IF (PRESENT(TextQualifier)) CALL AUTOADDARG(invokeargs, '$ARG3', TextQualifier)
				IF (PRESENT(ConsecutiveDelimiter)) CALL AUTOADDARG(invokeargs, '$ARG4', ConsecutiveDelimiter, AUTO_ARG_IN)
				IF (PRESENT(Tab)) CALL AUTOADDARG(invokeargs, '$ARG5', Tab, AUTO_ARG_IN)
				IF (PRESENT(Semicolon)) CALL AUTOADDARG(invokeargs, '$ARG6', Semicolon, AUTO_ARG_IN)
				IF (PRESENT(Comma)) CALL AUTOADDARG(invokeargs, '$ARG7', Comma, AUTO_ARG_IN)
				IF (PRESENT(Space)) CALL AUTOADDARG(invokeargs, '$ARG8', Space, AUTO_ARG_IN)
				IF (PRESENT(Other)) CALL AUTOADDARG(invokeargs, '$ARG9', Other, AUTO_ARG_IN)
				IF (PRESENT(OtherChar)) CALL AUTOADDARG(invokeargs, '$ARG10', OtherChar, AUTO_ARG_IN)
				IF (PRESENT(FieldInfo)) CALL AUTOADDARG(invokeargs, '$ARG11', FieldInfo, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 1040, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_TextToColumns
  			SUBROUTINE Range_Ungroup($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_Ungroup
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 244, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_Ungroup
  			SUBROUTINE Range_UnMerge($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Range_UnMerge
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1384, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Range_UnMerge
  			!Workbooks_Add return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_Add($OBJECT, Template, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_Add
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Template	
				!DEC$ ATTRIBUTES REFERENCE	:: Template
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Template)) CALL AUTOADDARG(invokeargs, '$ARG1', Template, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 181, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_Add = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_Add
  			SUBROUTINE Workbooks_Close($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_Close
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 277, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Workbooks_Close
  			!Workbooks_Get_Default return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_Get_Default($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_Get_Default
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_Default', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 0, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_Get_Default = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_Get_Default
  			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_Get_NewEnum($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_Get_NewEnum
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_NewEnum', $RETURN, AUTO_ARG_OUT, VT_UNKNOWN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -4, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_Get_NewEnum = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_Get_NewEnum
  			!Workbooks_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_GetApplication
  			INTEGER*4 FUNCTION Workbooks_GetCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_GetCount
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Count', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 118, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_GetCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_GetCount
  			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_GetCreator
  			!Workbooks_GetItem return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_GetItem($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_GetItem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Item', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 170, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_GetItem = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_GetItem
  			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_GetParent
  			!Workbooks_Open return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Workbooks_Open($OBJECT, Filename, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_Open
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: UpdateLinks	
				!DEC$ ATTRIBUTES REFERENCE	:: UpdateLinks
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ReadOnly	
				!DEC$ ATTRIBUTES REFERENCE	:: ReadOnly
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Format	
				!DEC$ ATTRIBUTES REFERENCE	:: Format
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Password	
				!DEC$ ATTRIBUTES REFERENCE	:: Password
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: WriteResPassword	
				!DEC$ ATTRIBUTES REFERENCE	:: WriteResPassword
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: IgnoreReadOnlyRecommended	
				!DEC$ ATTRIBUTES REFERENCE	:: IgnoreReadOnlyRecommended
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Origin	
				!DEC$ ATTRIBUTES REFERENCE	:: Origin
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Delimiter	
				!DEC$ ATTRIBUTES REFERENCE	:: Delimiter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Editable	
				!DEC$ ATTRIBUTES REFERENCE	:: Editable
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Notify	
				!DEC$ ATTRIBUTES REFERENCE	:: Notify
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Converter	
				!DEC$ ATTRIBUTES REFERENCE	:: Converter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: AddToMru	
				!DEC$ ATTRIBUTES REFERENCE	:: AddToMru
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(UpdateLinks)) CALL AUTOADDARG(invokeargs, '$ARG2', UpdateLinks, AUTO_ARG_IN)
				IF (PRESENT(ReadOnly)) CALL AUTOADDARG(invokeargs, '$ARG3', ReadOnly, AUTO_ARG_IN)
				IF (PRESENT(Format)) CALL AUTOADDARG(invokeargs, '$ARG4', Format, AUTO_ARG_IN)
				IF (PRESENT(Password)) CALL AUTOADDARG(invokeargs, '$ARG5', Password, AUTO_ARG_IN)
				IF (PRESENT(WriteResPassword)) CALL AUTOADDARG(invokeargs, '$ARG6', WriteResPassword, AUTO_ARG_IN)
				IF (PRESENT(IgnoreReadOnlyRecommended)) CALL AUTOADDARG(invokeargs, '$ARG7', IgnoreReadOnlyRecommended, AUTO_ARG_IN)
				IF (PRESENT(Origin)) CALL AUTOADDARG(invokeargs, '$ARG8', Origin, AUTO_ARG_IN)
				IF (PRESENT(Delimiter)) CALL AUTOADDARG(invokeargs, '$ARG9', Delimiter, AUTO_ARG_IN)
				IF (PRESENT(Editable)) CALL AUTOADDARG(invokeargs, '$ARG10', Editable, AUTO_ARG_IN)
				IF (PRESENT(Notify)) CALL AUTOADDARG(invokeargs, '$ARG11', Notify, AUTO_ARG_IN)
				IF (PRESENT(Converter)) CALL AUTOADDARG(invokeargs, '$ARG12', Converter, AUTO_ARG_IN)
				IF (PRESENT(AddToMru)) CALL AUTOADDARG(invokeargs, '$ARG13', AddToMru, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 682, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Workbooks_Open = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Workbooks_Open
  			SUBROUTINE Workbooks_OpenText($OBJECT, Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Workbooks_OpenText
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				CHARACTER*(*), INTENT(IN)	:: Filename	! BSTR
				!DEC$ ATTRIBUTES REFERENCE	:: Filename
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Origin	
				!DEC$ ATTRIBUTES REFERENCE	:: Origin
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: StartRow	
				!DEC$ ATTRIBUTES REFERENCE	:: StartRow
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: DataType	
				!DEC$ ATTRIBUTES REFERENCE	:: DataType
				INTEGER(INT_PTR_KIND()), INTENT(IN), OPTIONAL	:: TextQualifier	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: TextQualifier
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ConsecutiveDelimiter	
				!DEC$ ATTRIBUTES REFERENCE	:: ConsecutiveDelimiter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Tab	
				!DEC$ ATTRIBUTES REFERENCE	:: Tab
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Semicolon	
				!DEC$ ATTRIBUTES REFERENCE	:: Semicolon
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Comma	
				!DEC$ ATTRIBUTES REFERENCE	:: Comma
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Space	
				!DEC$ ATTRIBUTES REFERENCE	:: Space
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Other	
				!DEC$ ATTRIBUTES REFERENCE	:: Other
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: OtherChar	
				!DEC$ ATTRIBUTES REFERENCE	:: OtherChar
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: FieldInfo	
				!DEC$ ATTRIBUTES REFERENCE	:: FieldInfo
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: TextVisualLayout	
				!DEC$ ATTRIBUTES REFERENCE	:: TextVisualLayout
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Filename, AUTO_ARG_IN, VT_BSTR)
				IF (PRESENT(Origin)) CALL AUTOADDARG(invokeargs, '$ARG2', Origin, AUTO_ARG_IN)
				IF (PRESENT(StartRow)) CALL AUTOADDARG(invokeargs, '$ARG3', StartRow, AUTO_ARG_IN)
				IF (PRESENT(DataType)) CALL AUTOADDARG(invokeargs, '$ARG4', DataType, AUTO_ARG_IN)
				IF (PRESENT(TextQualifier)) CALL AUTOADDARG(invokeargs, '$ARG5', TextQualifier)
				IF (PRESENT(ConsecutiveDelimiter)) CALL AUTOADDARG(invokeargs, '$ARG6', ConsecutiveDelimiter, AUTO_ARG_IN)
				IF (PRESENT(Tab)) CALL AUTOADDARG(invokeargs, '$ARG7', Tab, AUTO_ARG_IN)
				IF (PRESENT(Semicolon)) CALL AUTOADDARG(invokeargs, '$ARG8', Semicolon, AUTO_ARG_IN)
				IF (PRESENT(Comma)) CALL AUTOADDARG(invokeargs, '$ARG9', Comma, AUTO_ARG_IN)
				IF (PRESENT(Space)) CALL AUTOADDARG(invokeargs, '$ARG10', Space, AUTO_ARG_IN)
				IF (PRESENT(Other)) CALL AUTOADDARG(invokeargs, '$ARG11', Other, AUTO_ARG_IN)
				IF (PRESENT(OtherChar)) CALL AUTOADDARG(invokeargs, '$ARG12', OtherChar, AUTO_ARG_IN)
				IF (PRESENT(FieldInfo)) CALL AUTOADDARG(invokeargs, '$ARG13', FieldInfo, AUTO_ARG_IN)
				IF (PRESENT(TextVisualLayout)) CALL AUTOADDARG(invokeargs, '$ARG14', TextVisualLayout, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 683, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Workbooks_OpenText
  			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_Add($OBJECT, Before, After, Count, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_Add
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Count	
				!DEC$ ATTRIBUTES REFERENCE	:: Count
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Type	
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				IF (PRESENT(Count)) CALL AUTOADDARG(invokeargs, '$ARG3', Count, AUTO_ARG_IN)
				IF (PRESENT(Type)) CALL AUTOADDARG(invokeargs, '$ARG4', Type, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 181, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_Add = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_Add
  			SUBROUTINE Worksheets_Copy($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_Copy
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 551, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_Copy
  			SUBROUTINE Worksheets_Delete($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_Delete
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 117, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_Delete
  			SUBROUTINE Worksheets_FillAcrossSheets($OBJECT, Range, Type, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_FillAcrossSheets
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Range	! IDispatch
				!DEC$ ATTRIBUTES REFERENCE	:: Range
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: Type	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: Type
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$ARG1', Range, AUTO_ARG_IN, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG2', Type)
				$$STATUS = AUTOINVOKE($OBJECT, 469, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_FillAcrossSheets
  			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_Get_Default($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_Get_Default
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_Default', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 0, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_Get_Default = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_Get_Default
  			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_Get_NewEnum($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_Get_NewEnum
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '_NewEnum', $RETURN, AUTO_ARG_OUT, VT_UNKNOWN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -4, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_Get_NewEnum = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_Get_NewEnum
  			!Worksheets_GetApplication return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_GetApplication($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetApplication
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Application', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 148, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetApplication = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetApplication
  			INTEGER*4 FUNCTION Worksheets_GetCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetCount
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Count', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 118, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetCount
  			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_GetCreator($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetCreator
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Creator', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 149, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetCreator = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetCreator
  			!Worksheets_GetHPageBreaks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_GetHPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetHPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'HPageBreaks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1418, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetHPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetHPageBreaks
  			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_GetItem($OBJECT, Index, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetItem
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: Index	
				!DEC$ ATTRIBUTES REFERENCE	:: Index
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Item', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				CALL AUTOADDARG(invokeargs, '$ARG1', Index, AUTO_ARG_IN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 170, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetItem = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetItem
  			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_GetParent($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetParent
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Parent', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 150, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetParent = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetParent
  			FUNCTION Worksheets_GetVisible($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				TYPE (VARIANT), VOLATILE :: $RETURN
				TYPE (VARIANT) Worksheets_GetVisible
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $RETURN, AUTO_ARG_OUT)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetVisible = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetVisible
  			!Worksheets_GetVPageBreaks return type is POINTER(p, INTEGER(INT_PTR_KIND()))
			INTEGER(INT_PTR_KIND()) FUNCTION Worksheets_GetVPageBreaks($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_GetVPageBreaks
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				INTEGER(INT_PTR_KIND()), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'VPageBreaks', $RETURN, AUTO_ARG_OUT, VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1419, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				Worksheets_GetVPageBreaks = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION Worksheets_GetVPageBreaks
  			SUBROUTINE Worksheets_Move($OBJECT, Before, After, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_Move
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Before	
				!DEC$ ATTRIBUTES REFERENCE	:: Before
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: After	
				!DEC$ ATTRIBUTES REFERENCE	:: After
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Before)) CALL AUTOADDARG(invokeargs, '$ARG1', Before, AUTO_ARG_IN)
				IF (PRESENT(After)) CALL AUTOADDARG(invokeargs, '$ARG2', After, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 637, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_Move
  			SUBROUTINE Worksheets_PrintOut($OBJECT, From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_PrintOut
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: From	
				!DEC$ ATTRIBUTES REFERENCE	:: From
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: To	
				!DEC$ ATTRIBUTES REFERENCE	:: To
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Copies	
				!DEC$ ATTRIBUTES REFERENCE	:: Copies
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Preview	
				!DEC$ ATTRIBUTES REFERENCE	:: Preview
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: ActivePrinter	
				!DEC$ ATTRIBUTES REFERENCE	:: ActivePrinter
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: PrintToFile	
				!DEC$ ATTRIBUTES REFERENCE	:: PrintToFile
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Collate	
				!DEC$ ATTRIBUTES REFERENCE	:: Collate
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(From)) CALL AUTOADDARG(invokeargs, '$ARG1', From, AUTO_ARG_IN)
				IF (PRESENT(To)) CALL AUTOADDARG(invokeargs, '$ARG2', To, AUTO_ARG_IN)
				IF (PRESENT(Copies)) CALL AUTOADDARG(invokeargs, '$ARG3', Copies, AUTO_ARG_IN)
				IF (PRESENT(Preview)) CALL AUTOADDARG(invokeargs, '$ARG4', Preview, AUTO_ARG_IN)
				IF (PRESENT(ActivePrinter)) CALL AUTOADDARG(invokeargs, '$ARG5', ActivePrinter, AUTO_ARG_IN)
				IF (PRESENT(PrintToFile)) CALL AUTOADDARG(invokeargs, '$ARG6', PrintToFile, AUTO_ARG_IN)
				IF (PRESENT(Collate)) CALL AUTOADDARG(invokeargs, '$ARG7', Collate, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 905, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_PrintOut
  			SUBROUTINE Worksheets_PrintPreview($OBJECT, EnableChanges, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_PrintPreview
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: EnableChanges	
				!DEC$ ATTRIBUTES REFERENCE	:: EnableChanges
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(EnableChanges)) CALL AUTOADDARG(invokeargs, '$ARG1', EnableChanges, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 281, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_PrintPreview
  			SUBROUTINE Worksheets_Select($OBJECT, Replace, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_Select
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN), OPTIONAL	:: Replace	
				!DEC$ ATTRIBUTES REFERENCE	:: Replace
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				IF (PRESENT(Replace)) CALL AUTOADDARG(invokeargs, '$ARG1', Replace, AUTO_ARG_IN)
				$$STATUS = AUTOINVOKE($OBJECT, 235, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_Select
  			SUBROUTINE Worksheets_SetVisible($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: Worksheets_SetVisible
				IMPLICIT NONE
	
				INTEGER(INT_PTR_KIND()), INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				TYPE (VARIANT), INTENT(IN)	:: $ARG1	
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER(INT_PTR_KIND()) invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Visible', $ARG1, AUTO_ARG_IN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 558, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE Worksheets_SetVisible
	END MODULE
