! ACTIVEMOVIE.f90

! This module contains the Automation interfaces of the objects defined in 
! C:\WIN95\SYSTEM\AMOVIE.OCX
! Generated by the Fortran Module Wizard on xx/xx/xx

	MODULE ACTIVEMOVIE
		USE DFCOMTY
		USE DFAUTO
		IMPLICIT NONE
	

		! CLSIDs		
		TYPE (GUID), PARAMETER :: CLSID_ActiveMovie = &
			GUID(#05589FA1, #C356, #11CE, &
			  CHAR('BF'X)//CHAR('01'X)//CHAR('00'X)//CHAR('AA'X)// &
			  CHAR('00'X)//CHAR('55'X)//CHAR('59'X)//CHAR('5A'X))

		! IIDs		
		TYPE (GUID), PARAMETER :: IID_DActiveMovieEvents = &
			GUID(#05589FA3, #C356, #11CE, &
			  CHAR('BF'X)//CHAR('01'X)//CHAR('00'X)//CHAR('AA'X)// &
			  CHAR('00'X)//CHAR('55'X)//CHAR('59'X)//CHAR('5A'X))
		TYPE (GUID), PARAMETER :: IID_DActiveMovieEvents2 = &
			GUID(#B6CD6553, #E9CB, #11D0, &
			  CHAR('82'X)//CHAR('1F'X)//CHAR('00'X)//CHAR('A0'X)// &
			  CHAR('C9'X)//CHAR('1F'X)//CHAR('9C'X)//CHAR('A0'X))

		! Enums		
		! AppearanceConstants (ActiveMovie Appearance)
			INTEGER, PARAMETER ::	amvFlat = 0	! Flat
			INTEGER, PARAMETER ::	amv3D = 1	! 3D
		! BorderStyleConstants (ActiveMovie Border Style)
			INTEGER, PARAMETER ::	amvNone = 0	! None
			INTEGER, PARAMETER ::	amvFixedSingle = 1	! Fixed Single
		! DisplayModeConstants (ActiveMovie Display Mode)
			INTEGER, PARAMETER ::	amvTime = 0	! Time
			INTEGER, PARAMETER ::	amvFrames = 1	! Frames
		! ReadyStateConstants (ActiveMovie Readiness State)
			INTEGER, PARAMETER ::	amvUninitialized = 1	! ActiveMovie is uninitialized
			INTEGER, PARAMETER ::	amvLoading = 0	! ActiveMovie is loading
			INTEGER, PARAMETER ::	amvInteractive = 3	! ActiveMovie is not fully loaded, but will permit limited user interaction
			INTEGER, PARAMETER ::	amvComplete = 4	! ActiveMovie is fully loaded, permitting full user interaction
		! StateConstants (State of ActiveMovie Clip)
			INTEGER, PARAMETER ::	amvNotLoaded = -1	! Movie is not loaded
			INTEGER, PARAMETER ::	amvStopped = 0	! Movie is stopped
			INTEGER, PARAMETER ::	amvPaused = 1	! Movie is paused
			INTEGER, PARAMETER ::	amvRunning = 2	! Movie is running
		! WindowSizeConstants (ActiveMovie Window Size)
			INTEGER, PARAMETER ::	amvOriginalSize = 0	! Original size
			INTEGER, PARAMETER ::	amvDoubleOriginalSize = 1	! Double original size
			INTEGER, PARAMETER ::	amvOneSixteenthScreen = 2	! 1/16 of screen size
			INTEGER, PARAMETER ::	amvOneFourthScreen = 3	! 1/4 of screen size
			INTEGER, PARAMETER ::	amvOneHalfScreen = 4	! 1/2 of screen size

		! Interfaces
		INTERFACE
 			! MEMBERID = -600
 			SUBROUTINE DActiveMovieEvents_Click($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_Click
			END SUBROUTINE DActiveMovieEvents_Click
		END INTERFACE
		INTERFACE
 			! MEMBERID = -601
 			SUBROUTINE DActiveMovieEvents_DblClick($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_DblClick
			END SUBROUTINE DActiveMovieEvents_DblClick
		END INTERFACE
		INTERFACE
 			! MEMBERID = 999
 			SUBROUTINE DActiveMovieEvents_Error($OBJECT, SCode, Description, Source, CancelDisplay)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: SCode	
				!DEC$ ATTRIBUTES VALUE	:: SCode
				INTEGER*4	:: Description	! BSTR
				!DEC$ ATTRIBUTES VALUE	:: Description
				INTEGER*4	:: Source	! BSTR
				!DEC$ ATTRIBUTES VALUE	:: Source
				LOGICAL*2	:: CancelDisplay	
				!DEC$ ATTRIBUTES REFERENCE	:: CancelDisplay
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_Error
			END SUBROUTINE DActiveMovieEvents_Error
		END INTERFACE
		INTERFACE
 			! MEMBERID = -602
 			SUBROUTINE DActiveMovieEvents_KeyDown($OBJECT, KeyCode, Shift)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: KeyCode	
				!DEC$ ATTRIBUTES REFERENCE	:: KeyCode
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_KeyDown
			END SUBROUTINE DActiveMovieEvents_KeyDown
		END INTERFACE
		INTERFACE
 			! MEMBERID = -603
 			SUBROUTINE DActiveMovieEvents_KeyPress($OBJECT, KeyAscii)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: KeyAscii	
				!DEC$ ATTRIBUTES REFERENCE	:: KeyAscii
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_KeyPress
			END SUBROUTINE DActiveMovieEvents_KeyPress
		END INTERFACE
		INTERFACE
 			! MEMBERID = -604
 			SUBROUTINE DActiveMovieEvents_KeyUp($OBJECT, KeyCode, Shift)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: KeyCode	
				!DEC$ ATTRIBUTES REFERENCE	:: KeyCode
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_KeyUp
			END SUBROUTINE DActiveMovieEvents_KeyUp
		END INTERFACE
		INTERFACE
 			! MEMBERID = -605
 			SUBROUTINE DActiveMovieEvents_MouseDown($OBJECT, Button, Shift, x, y)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: Button	
				!DEC$ ATTRIBUTES VALUE	:: Button
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
				INTEGER*4	:: x	
				!DEC$ ATTRIBUTES VALUE	:: x
				INTEGER*4	:: y	
				!DEC$ ATTRIBUTES VALUE	:: y
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_MouseDown
			END SUBROUTINE DActiveMovieEvents_MouseDown
		END INTERFACE
		INTERFACE
 			! MEMBERID = -606
 			SUBROUTINE DActiveMovieEvents_MouseMove($OBJECT, Button, Shift, x, y)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: Button	
				!DEC$ ATTRIBUTES VALUE	:: Button
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
				INTEGER*4	:: x	
				!DEC$ ATTRIBUTES VALUE	:: x
				INTEGER*4	:: y	
				!DEC$ ATTRIBUTES VALUE	:: y
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_MouseMove
			END SUBROUTINE DActiveMovieEvents_MouseMove
		END INTERFACE
		INTERFACE
 			! MEMBERID = -607
 			SUBROUTINE DActiveMovieEvents_MouseUp($OBJECT, Button, Shift, x, y)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: Button	
				!DEC$ ATTRIBUTES VALUE	:: Button
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
				INTEGER*4	:: x	
				!DEC$ ATTRIBUTES VALUE	:: x
				INTEGER*4	:: y	
				!DEC$ ATTRIBUTES VALUE	:: y
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_MouseUp
			END SUBROUTINE DActiveMovieEvents_MouseUp
		END INTERFACE
		INTERFACE
			!Reports that an asynchronous operation to open a file has completed successfully
 			! MEMBERID = 50
 			SUBROUTINE DActiveMovieEvents_OpenComplete($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_OpenComplete
			END SUBROUTINE DActiveMovieEvents_OpenComplete
		END INTERFACE
		INTERFACE
			!Indicates that the current position of the movie has changed
 			! MEMBERID = 2
 			SUBROUTINE DActiveMovieEvents_PositionChange($OBJECT, oldPosition, newPosition)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8	:: oldPosition	
				!DEC$ ATTRIBUTES VALUE	:: oldPosition
				REAL*8	:: newPosition	
				!DEC$ ATTRIBUTES VALUE	:: newPosition
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_PositionChange
			END SUBROUTINE DActiveMovieEvents_PositionChange
		END INTERFACE
		INTERFACE
			!Indicates that the current state of the movie has changed
 			! MEMBERID = 1
 			SUBROUTINE DActiveMovieEvents_StateChange($OBJECT, oldState, newState)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4	:: oldState	
				!DEC$ ATTRIBUTES VALUE	:: oldState
				INTEGER*4	:: newState	
				!DEC$ ATTRIBUTES VALUE	:: newState
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_StateChange
			END SUBROUTINE DActiveMovieEvents_StateChange
		END INTERFACE
		INTERFACE
			!ActiveMovie Control's progress timer
 			! MEMBERID = 3
 			SUBROUTINE DActiveMovieEvents_Timer($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents_Timer
			END SUBROUTINE DActiveMovieEvents_Timer
		END INTERFACE
		INTERFACE
 			! MEMBERID = -600
 			SUBROUTINE DActiveMovieEvents2_Click($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_Click
			END SUBROUTINE DActiveMovieEvents2_Click
		END INTERFACE
		INTERFACE
 			! MEMBERID = -601
 			SUBROUTINE DActiveMovieEvents2_DblClick($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_DblClick
			END SUBROUTINE DActiveMovieEvents2_DblClick
		END INTERFACE
		INTERFACE
			!Indicates that the display mode of the movie has changed
 			! MEMBERID = 51
 			SUBROUTINE DActiveMovieEvents2_DisplayModeChange($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_DisplayModeChange
			END SUBROUTINE DActiveMovieEvents2_DisplayModeChange
		END INTERFACE
		INTERFACE
 			! MEMBERID = 999
 			SUBROUTINE DActiveMovieEvents2_Error($OBJECT, SCode, Description, Source, CancelDisplay)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: SCode	
				!DEC$ ATTRIBUTES VALUE	:: SCode
				INTEGER*4	:: Description	! BSTR
				!DEC$ ATTRIBUTES VALUE	:: Description
				INTEGER*4	:: Source	! BSTR
				!DEC$ ATTRIBUTES VALUE	:: Source
				LOGICAL*2	:: CancelDisplay	
				!DEC$ ATTRIBUTES REFERENCE	:: CancelDisplay
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_Error
			END SUBROUTINE DActiveMovieEvents2_Error
		END INTERFACE
		INTERFACE
 			! MEMBERID = -602
 			SUBROUTINE DActiveMovieEvents2_KeyDown($OBJECT, KeyCode, Shift)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: KeyCode	
				!DEC$ ATTRIBUTES REFERENCE	:: KeyCode
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_KeyDown
			END SUBROUTINE DActiveMovieEvents2_KeyDown
		END INTERFACE
		INTERFACE
 			! MEMBERID = -603
 			SUBROUTINE DActiveMovieEvents2_KeyPress($OBJECT, KeyAscii)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: KeyAscii	
				!DEC$ ATTRIBUTES REFERENCE	:: KeyAscii
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_KeyPress
			END SUBROUTINE DActiveMovieEvents2_KeyPress
		END INTERFACE
		INTERFACE
 			! MEMBERID = -604
 			SUBROUTINE DActiveMovieEvents2_KeyUp($OBJECT, KeyCode, Shift)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: KeyCode	
				!DEC$ ATTRIBUTES REFERENCE	:: KeyCode
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_KeyUp
			END SUBROUTINE DActiveMovieEvents2_KeyUp
		END INTERFACE
		INTERFACE
 			! MEMBERID = -605
 			SUBROUTINE DActiveMovieEvents2_MouseDown($OBJECT, Button, Shift, x, y)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: Button	
				!DEC$ ATTRIBUTES VALUE	:: Button
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
				INTEGER*4	:: x	
				!DEC$ ATTRIBUTES VALUE	:: x
				INTEGER*4	:: y	
				!DEC$ ATTRIBUTES VALUE	:: y
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_MouseDown
			END SUBROUTINE DActiveMovieEvents2_MouseDown
		END INTERFACE
		INTERFACE
 			! MEMBERID = -606
 			SUBROUTINE DActiveMovieEvents2_MouseMove($OBJECT, Button, Shift, x, y)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: Button	
				!DEC$ ATTRIBUTES VALUE	:: Button
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
				INTEGER*4	:: x	
				!DEC$ ATTRIBUTES VALUE	:: x
				INTEGER*4	:: y	
				!DEC$ ATTRIBUTES VALUE	:: y
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_MouseMove
			END SUBROUTINE DActiveMovieEvents2_MouseMove
		END INTERFACE
		INTERFACE
 			! MEMBERID = -607
 			SUBROUTINE DActiveMovieEvents2_MouseUp($OBJECT, Button, Shift, x, y)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*2	:: Button	
				!DEC$ ATTRIBUTES VALUE	:: Button
				INTEGER*2	:: Shift	
				!DEC$ ATTRIBUTES VALUE	:: Shift
				INTEGER*4	:: x	
				!DEC$ ATTRIBUTES VALUE	:: x
				INTEGER*4	:: y	
				!DEC$ ATTRIBUTES VALUE	:: y
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_MouseUp
			END SUBROUTINE DActiveMovieEvents2_MouseUp
		END INTERFACE
		INTERFACE
			!Reports that an asynchronous operation to open a file has completed successfully
 			! MEMBERID = 50
 			SUBROUTINE DActiveMovieEvents2_OpenComplete($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_OpenComplete
			END SUBROUTINE DActiveMovieEvents2_OpenComplete
		END INTERFACE
		INTERFACE
			!Indicates that the current position of the movie has changed
 			! MEMBERID = 2
 			SUBROUTINE DActiveMovieEvents2_PositionChange($OBJECT, oldPosition, newPosition)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				REAL*8	:: oldPosition	
				!DEC$ ATTRIBUTES VALUE	:: oldPosition
				REAL*8	:: newPosition	
				!DEC$ ATTRIBUTES VALUE	:: newPosition
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_PositionChange
			END SUBROUTINE DActiveMovieEvents2_PositionChange
		END INTERFACE
		INTERFACE
			!Reports that the ReadyState property of the ActiveMovie Control has changed
 			! MEMBERID = -609
 			SUBROUTINE DActiveMovieEvents2_ReadyStateChange($OBJECT, ReadyState)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4	:: ReadyState	! Void
				!DEC$ ATTRIBUTES VALUE	:: ReadyState
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_ReadyStateChange
			END SUBROUTINE DActiveMovieEvents2_ReadyStateChange
		END INTERFACE
		INTERFACE
 			! MEMBERID = 52
 			SUBROUTINE DActiveMovieEvents2_ScriptCommand($OBJECT, bstrType, bstrText)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4	:: bstrType	! BSTR
				!DEC$ ATTRIBUTES VALUE	:: bstrType
				INTEGER*4	:: bstrText	! BSTR
				!DEC$ ATTRIBUTES VALUE	:: bstrText
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_ScriptCommand
			END SUBROUTINE DActiveMovieEvents2_ScriptCommand
		END INTERFACE
		INTERFACE
			!Indicates that the current state of the movie has changed
 			! MEMBERID = 1
 			SUBROUTINE DActiveMovieEvents2_StateChange($OBJECT, oldState, newState)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4	:: oldState	
				!DEC$ ATTRIBUTES VALUE	:: oldState
				INTEGER*4	:: newState	
				!DEC$ ATTRIBUTES VALUE	:: newState
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_StateChange
			END SUBROUTINE DActiveMovieEvents2_StateChange
		END INTERFACE
		INTERFACE
			!ActiveMovie Control's progress timer
 			! MEMBERID = 3
 			SUBROUTINE DActiveMovieEvents2_Timer($OBJECT)
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
			!DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_Timer
			END SUBROUTINE DActiveMovieEvents2_Timer
		END INTERFACE


		! Module Procedures
		CONTAINS
  			SUBROUTINE IActiveMovie_AboutBox($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_AboutBox
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, -552, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_AboutBox
			!Allows/disallows changing the display mode at run time
  			LOGICAL*2 FUNCTION IActiveMovie_GetAllowChangeDisplayMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetAllowChangeDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowChangeDisplayMode', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 33, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetAllowChangeDisplayMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetAllowChangeDisplayMode
			!Allows/disallows hiding the control panel at run time
  			LOGICAL*2 FUNCTION IActiveMovie_GetAllowHideControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetAllowHideControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 31, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetAllowHideControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetAllowHideControls
			!Allows/disallows hiding the display panel at run time
  			LOGICAL*2 FUNCTION IActiveMovie_GetAllowHideDisplay($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetAllowHideDisplay
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideDisplay', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 30, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetAllowHideDisplay = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetAllowHideDisplay
			!Returns/sets the appearance
  			INTEGER*4 FUNCTION IActiveMovie_GetAppearance($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetAppearance
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Appearance', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -520, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetAppearance = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetAppearance
			!Returns the name of the author of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie_GetAuthor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetAuthor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Author', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 6, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetAuthor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetAuthor
			!Indicates whether the media clip will rewind automatically after playing
  			LOGICAL*2 FUNCTION IActiveMovie_GetAutoRewind($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetAutoRewind
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoRewind', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 41, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetAutoRewind = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetAutoRewind
			!Indicates whether the Control will start playing when activated
  			LOGICAL*2 FUNCTION IActiveMovie_GetAutoStart($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetAutoStart
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoStart', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 40, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetAutoStart = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetAutoStart
			!Returns/sets the stereo balance of the multimedia stream
  			INTEGER*4 FUNCTION IActiveMovie_GetBalance($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetBalance
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Balance', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 20, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetBalance = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetBalance
			!Returns/sets the border style
  			INTEGER*4 FUNCTION IActiveMovie_GetBorderStyle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetBorderStyle
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'BorderStyle', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 42, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetBorderStyle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetBorderStyle
			!Returns the copyright statement of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie_GetCopyright($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetCopyright
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Copyright', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 8, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetCopyright = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetCopyright
			!Returns/sets the current position of the multimedia stream
  			REAL*8 FUNCTION IActiveMovie_GetCurrentPosition($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetCurrentPosition
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentPosition', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 13, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetCurrentPosition = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetCurrentPosition
			!Returns the current state of the movie clip
  			INTEGER*4 FUNCTION IActiveMovie_GetCurrentState($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetCurrentState
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentState', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 17, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetCurrentState = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetCurrentState
			!Returns the description of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie_GetDescription($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetDescription
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Description', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 9, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetDescription = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetDescription
			!Returns/sets the background color of the display panel
  			INTEGER*4 FUNCTION IActiveMovie_GetDisplayBackColor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetDisplayBackColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayBackColor', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 37, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetDisplayBackColor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetDisplayBackColor
			!Returns/sets the foreground color of the display panel
  			INTEGER*4 FUNCTION IActiveMovie_GetDisplayForeColor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetDisplayForeColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayForeColor', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 36, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetDisplayForeColor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetDisplayForeColor
			!Returns/sets the display mode (time or frames)
  			INTEGER*4 FUNCTION IActiveMovie_GetDisplayMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayMode', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 32, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetDisplayMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetDisplayMode
			!Returns the duration of the multimedia stream, if known
  			REAL*8 FUNCTION IActiveMovie_GetDuration($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetDuration
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Duration', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 12, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetDuration = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetDuration
			!Enables/disables the right-click context menu
  			LOGICAL*2 FUNCTION IActiveMovie_GetEnableContextMenu($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetEnableContextMenu
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableContextMenu', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 21, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetEnableContextMenu = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetEnableContextMenu
			!Enables/disables the control
  			LOGICAL*2 FUNCTION IActiveMovie_GetEnabled($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetEnabled
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Enabled', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -514, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetEnabled = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetEnabled
			!Enables/disables the position buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetEnablePositionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetEnablePositionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnablePositionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 27, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetEnablePositionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetEnablePositionControls
			!Enables/disables the selection buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetEnableSelectionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetEnableSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSelectionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 28, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetEnableSelectionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetEnableSelectionControls
			!Enables/disables the tracker bar in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetEnableTracker($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetEnableTracker
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableTracker', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 29, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetEnableTracker = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetEnableTracker
			!Returns/sets the current multimedia file
  			CHARACTER*(2048) FUNCTION IActiveMovie_GetFileName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetFileName
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileName', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 11, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetFileName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetFileName
			!Returns/sets the current filter graph
  			INTEGER*4 FUNCTION IActiveMovie_GetFilterGraph($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetFilterGraph
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FilterGraph', $RETURN, .TRUE., VT_UNKNOWN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 34, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetFilterGraph = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetFilterGraph
			!Returns the current filter graph's Dispatch interface
  			INTEGER*4 FUNCTION IActiveMovie_GetFilterGraphDispatch($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetFilterGraphDispatch
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FilterGraphDispatch', $RETURN, .TRUE., VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 35, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetFilterGraphDispatch = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetFilterGraphDispatch
			!Indicates whether the media clip will run full screen
  			LOGICAL*2 FUNCTION IActiveMovie_GetFullScreenMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetFullScreenMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FullScreenMode', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 39, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetFullScreenMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetFullScreenMode
			!Returns the handle of the control window
  			INTEGER*4 FUNCTION IActiveMovie_GethWnd($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GethWnd
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'hWnd', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -515, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GethWnd = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GethWnd
			!Returns the height of the movie image
  			INTEGER*4 FUNCTION IActiveMovie_GetImageSourceHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetImageSourceHeight
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ImageSourceHeight', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 5, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetImageSourceHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetImageSourceHeight
			!Returns the width of the movie image
  			INTEGER*4 FUNCTION IActiveMovie_GetImageSourceWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetImageSourceWidth
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ImageSourceWidth', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 4, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetImageSourceWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetImageSourceWidth
  			INTEGER*4 FUNCTION IActiveMovie_GetInfo($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetInfo
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Info', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1610743885, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetInfo = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetInfo
			!Returns/sets the movie window size
  			INTEGER*4 FUNCTION IActiveMovie_GetMovieWindowSize($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetMovieWindowSize
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MovieWindowSize', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 38, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetMovieWindowSize = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetMovieWindowSize
			!Returns/sets the number of times the movie will be played
  			INTEGER*4 FUNCTION IActiveMovie_GetPlayCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetPlayCount
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlayCount', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 14, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetPlayCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetPlayCount
			!Returns/sets the rate of the multimedia stream
  			REAL*8 FUNCTION IActiveMovie_GetRate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetRate
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rate', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 18, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetRate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetRate
			!Returns the rating of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie_GetRating($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetRating
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rating', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 10, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetRating = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetRating
			!Returns/sets the position where playback will stop
  			REAL*8 FUNCTION IActiveMovie_GetSelectionEnd($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetSelectionEnd
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionEnd', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 16, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetSelectionEnd = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetSelectionEnd
			!Returns/sets the position where playback will begin
  			REAL*8 FUNCTION IActiveMovie_GetSelectionStart($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetSelectionStart
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionStart', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 15, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetSelectionStart = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetSelectionStart
			!Shows/hides the control panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetShowControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetShowControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 23, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetShowControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetShowControls
			!Shows/hides the display panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetShowDisplay($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetShowDisplay
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowDisplay', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 22, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetShowDisplay = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetShowDisplay
			!Shows/hides the position buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetShowPositionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetShowPositionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowPositionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 24, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetShowPositionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetShowPositionControls
			!Shows/hides the selection buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetShowSelectionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetShowSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowSelectionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 25, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetShowSelectionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetShowSelectionControls
			!Shows/hides the tracker bar in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie_GetShowTracker($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetShowTracker
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowTracker', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 26, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetShowTracker = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetShowTracker
			!Returns the title of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie_GetTitle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetTitle
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Title', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 7, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetTitle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetTitle
			!Returns/sets the audio volume of the multimedia stream
  			INTEGER*4 FUNCTION IActiveMovie_GetVolume($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_GetVolume
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Volume', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 19, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie_GetVolume = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie_GetVolume
			!Puts the multimedia stream into Paused state
  			SUBROUTINE IActiveMovie_Pause($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_Pause
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1610743810, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_Pause
			!Puts the multimedia stream into Running state
  			SUBROUTINE IActiveMovie_Run($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_Run
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1610743809, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_Run
			!Allows/disallows changing the display mode at run time
  			SUBROUTINE IActiveMovie_SetAllowChangeDisplayMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetAllowChangeDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowChangeDisplayMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 33, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetAllowChangeDisplayMode
			!Allows/disallows hiding the control panel at run time
  			SUBROUTINE IActiveMovie_SetAllowHideControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetAllowHideControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 31, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetAllowHideControls
			!Allows/disallows hiding the display panel at run time
  			SUBROUTINE IActiveMovie_SetAllowHideDisplay($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetAllowHideDisplay
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideDisplay', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 30, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetAllowHideDisplay
			!Returns/sets the appearance
  			SUBROUTINE IActiveMovie_SetAppearance($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetAppearance
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Appearance', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, -520, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetAppearance
			!Indicates whether the media clip will rewind automatically after playing
  			SUBROUTINE IActiveMovie_SetAutoRewind($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetAutoRewind
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoRewind', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 41, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetAutoRewind
			!Indicates whether the Control will start playing when activated
  			SUBROUTINE IActiveMovie_SetAutoStart($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetAutoStart
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoStart', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 40, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetAutoStart
			!Returns/sets the stereo balance of the multimedia stream
  			SUBROUTINE IActiveMovie_SetBalance($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetBalance
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Balance', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 20, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetBalance
			!Returns/sets the border style
  			SUBROUTINE IActiveMovie_SetBorderStyle($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetBorderStyle
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'BorderStyle', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 42, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetBorderStyle
			!Returns/sets the current position of the multimedia stream
  			SUBROUTINE IActiveMovie_SetCurrentPosition($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetCurrentPosition
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentPosition', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 13, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetCurrentPosition
			!Returns/sets the background color of the display panel
  			SUBROUTINE IActiveMovie_SetDisplayBackColor($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetDisplayBackColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Unsigned
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayBackColor', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 37, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetDisplayBackColor
			!Returns/sets the foreground color of the display panel
  			SUBROUTINE IActiveMovie_SetDisplayForeColor($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetDisplayForeColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Unsigned
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayForeColor', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 36, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetDisplayForeColor
			!Returns/sets the display mode (time or frames)
  			SUBROUTINE IActiveMovie_SetDisplayMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 32, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetDisplayMode
			!Enables/disables the right-click context menu
  			SUBROUTINE IActiveMovie_SetEnableContextMenu($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetEnableContextMenu
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableContextMenu', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 21, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetEnableContextMenu
			!Enables/disables the control
  			SUBROUTINE IActiveMovie_SetEnabled($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetEnabled
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Enabled', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, -514, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetEnabled
			!Enables/disables the position buttons in the control panel
  			SUBROUTINE IActiveMovie_SetEnablePositionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetEnablePositionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnablePositionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 27, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetEnablePositionControls
			!Enables/disables the selection buttons in the control panel
  			SUBROUTINE IActiveMovie_SetEnableSelectionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetEnableSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSelectionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 28, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetEnableSelectionControls
			!Enables/disables the tracker bar in the control panel
  			SUBROUTINE IActiveMovie_SetEnableTracker($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetEnableTracker
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableTracker', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 29, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetEnableTracker
			!Returns/sets the current multimedia file
  			SUBROUTINE IActiveMovie_SetFileName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetFileName
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileName', $ARG1, .FALSE., VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 11, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetFileName
			!Returns/sets the current filter graph
  			SUBROUTINE IActiveMovie_SetFilterGraph($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetFilterGraph
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! IUnknown
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FilterGraph', $ARG1, .FALSE., VT_UNKNOWN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 34, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetFilterGraph
			!Indicates whether the media clip will run full screen
  			SUBROUTINE IActiveMovie_SetFullScreenMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetFullScreenMode
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FullScreenMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 39, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetFullScreenMode
			!Returns/sets the movie window size
  			SUBROUTINE IActiveMovie_SetMovieWindowSize($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetMovieWindowSize
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MovieWindowSize', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 38, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetMovieWindowSize
			!Returns/sets the number of times the movie will be played
  			SUBROUTINE IActiveMovie_SetPlayCount($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetPlayCount
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlayCount', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 14, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetPlayCount
			!Returns/sets the rate of the multimedia stream
  			SUBROUTINE IActiveMovie_SetRate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetRate
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rate', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 18, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetRate
			!Returns/sets the position where playback will stop
  			SUBROUTINE IActiveMovie_SetSelectionEnd($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetSelectionEnd
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionEnd', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 16, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetSelectionEnd
			!Returns/sets the position where playback will begin
  			SUBROUTINE IActiveMovie_SetSelectionStart($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetSelectionStart
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionStart', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 15, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetSelectionStart
			!Shows/hides the control panel
  			SUBROUTINE IActiveMovie_SetShowControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetShowControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 23, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetShowControls
			!Shows/hides the display panel
  			SUBROUTINE IActiveMovie_SetShowDisplay($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetShowDisplay
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowDisplay', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 22, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetShowDisplay
			!Shows/hides the position buttons in the control panel
  			SUBROUTINE IActiveMovie_SetShowPositionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetShowPositionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowPositionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 24, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetShowPositionControls
			!Shows/hides the selection buttons in the control panel
  			SUBROUTINE IActiveMovie_SetShowSelectionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetShowSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowSelectionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 25, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetShowSelectionControls
			!Shows/hides the tracker bar in the control panel
  			SUBROUTINE IActiveMovie_SetShowTracker($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetShowTracker
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowTracker', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 26, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetShowTracker
			!Returns/sets the audio volume of the multimedia stream
  			SUBROUTINE IActiveMovie_SetVolume($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_SetVolume
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Volume', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 19, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_SetVolume
			!Puts the multimedia stream into Stopped state
  			SUBROUTINE IActiveMovie_Stop($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie_Stop
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1610743811, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie_Stop
  			SUBROUTINE IActiveMovie2_AboutBox($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_AboutBox
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, -552, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_AboutBox
			!Allows/disallows changing the display mode at run time
  			LOGICAL*2 FUNCTION IActiveMovie2_GetAllowChangeDisplayMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetAllowChangeDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowChangeDisplayMode', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 33, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetAllowChangeDisplayMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetAllowChangeDisplayMode
			!Allows/disallows hiding the control panel at run time
  			LOGICAL*2 FUNCTION IActiveMovie2_GetAllowHideControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetAllowHideControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 31, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetAllowHideControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetAllowHideControls
			!Allows/disallows hiding the display panel at run time
  			LOGICAL*2 FUNCTION IActiveMovie2_GetAllowHideDisplay($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetAllowHideDisplay
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideDisplay', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 30, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetAllowHideDisplay = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetAllowHideDisplay
			!Returns/sets the appearance
  			INTEGER*4 FUNCTION IActiveMovie2_GetAppearance($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetAppearance
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Appearance', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -520, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetAppearance = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetAppearance
			!Returns the name of the author of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie2_GetAuthor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetAuthor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Author', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 6, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetAuthor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetAuthor
			!Indicates whether the media clip will rewind automatically after playing
  			LOGICAL*2 FUNCTION IActiveMovie2_GetAutoRewind($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetAutoRewind
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoRewind', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 41, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetAutoRewind = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetAutoRewind
			!Indicates whether the Control will start playing when activated
  			LOGICAL*2 FUNCTION IActiveMovie2_GetAutoStart($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetAutoStart
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoStart', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 40, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetAutoStart = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetAutoStart
			!Returns/sets the stereo balance of the multimedia stream
  			INTEGER*4 FUNCTION IActiveMovie2_GetBalance($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetBalance
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Balance', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 20, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetBalance = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetBalance
			!Returns/sets the border style
  			INTEGER*4 FUNCTION IActiveMovie2_GetBorderStyle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetBorderStyle
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'BorderStyle', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 42, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetBorderStyle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetBorderStyle
			!Returns the copyright statement of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie2_GetCopyright($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetCopyright
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Copyright', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 8, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetCopyright = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetCopyright
			!Returns/sets the current position of the multimedia stream
  			REAL*8 FUNCTION IActiveMovie2_GetCurrentPosition($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetCurrentPosition
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentPosition', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 13, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetCurrentPosition = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetCurrentPosition
			!Returns the current state of the movie clip
  			INTEGER*4 FUNCTION IActiveMovie2_GetCurrentState($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetCurrentState
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentState', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 17, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetCurrentState = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetCurrentState
			!Returns the description of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie2_GetDescription($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetDescription
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Description', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 9, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetDescription = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetDescription
			!Returns/sets the background color of the display panel
  			INTEGER*4 FUNCTION IActiveMovie2_GetDisplayBackColor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetDisplayBackColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayBackColor', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 37, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetDisplayBackColor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetDisplayBackColor
			!Returns/sets the foreground color of the display panel
  			INTEGER*4 FUNCTION IActiveMovie2_GetDisplayForeColor($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetDisplayForeColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayForeColor', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 36, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetDisplayForeColor = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetDisplayForeColor
			!Returns/sets the display mode (time or frames)
  			INTEGER*4 FUNCTION IActiveMovie2_GetDisplayMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayMode', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 32, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetDisplayMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetDisplayMode
			!Returns the duration of the multimedia stream, if known
  			REAL*8 FUNCTION IActiveMovie2_GetDuration($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetDuration
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Duration', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 12, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetDuration = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetDuration
			!Enables/disables the right-click context menu
  			LOGICAL*2 FUNCTION IActiveMovie2_GetEnableContextMenu($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetEnableContextMenu
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableContextMenu', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 21, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetEnableContextMenu = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetEnableContextMenu
			!Enables/disables the control
  			LOGICAL*2 FUNCTION IActiveMovie2_GetEnabled($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetEnabled
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Enabled', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -514, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetEnabled = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetEnabled
			!Enables/disables the position buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetEnablePositionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetEnablePositionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnablePositionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 27, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetEnablePositionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetEnablePositionControls
			!Enables/disables the selection buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetEnableSelectionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetEnableSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSelectionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 28, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetEnableSelectionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetEnableSelectionControls
			!Enables/disables the tracker bar in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetEnableTracker($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetEnableTracker
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableTracker', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 29, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetEnableTracker = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetEnableTracker
			!Returns/sets the current multimedia file
  			CHARACTER*(2048) FUNCTION IActiveMovie2_GetFileName($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetFileName
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileName', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 11, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetFileName = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetFileName
			!Returns/sets the current filter graph
  			INTEGER*4 FUNCTION IActiveMovie2_GetFilterGraph($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetFilterGraph
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FilterGraph', $RETURN, .TRUE., VT_UNKNOWN)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 34, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetFilterGraph = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetFilterGraph
			!Returns the current filter graph's Dispatch interface
  			INTEGER*4 FUNCTION IActiveMovie2_GetFilterGraphDispatch($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetFilterGraphDispatch
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FilterGraphDispatch', $RETURN, .TRUE., VT_DISPATCH)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 35, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetFilterGraphDispatch = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetFilterGraphDispatch
			!Indicates whether the media clip will run full screen
  			LOGICAL*2 FUNCTION IActiveMovie2_GetFullScreenMode($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetFullScreenMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FullScreenMode', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 39, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetFullScreenMode = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetFullScreenMode
			!Returns the handle of the control window
  			INTEGER*4 FUNCTION IActiveMovie2_GethWnd($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GethWnd
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'hWnd', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -515, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GethWnd = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GethWnd
			!Returns the height of the movie image
  			INTEGER*4 FUNCTION IActiveMovie2_GetImageSourceHeight($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetImageSourceHeight
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ImageSourceHeight', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 5, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetImageSourceHeight = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetImageSourceHeight
			!Returns the width of the movie image
  			INTEGER*4 FUNCTION IActiveMovie2_GetImageSourceWidth($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetImageSourceWidth
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ImageSourceWidth', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 4, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetImageSourceWidth = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetImageSourceWidth
  			INTEGER*4 FUNCTION IActiveMovie2_GetInfo($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetInfo
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Info', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 1610743885, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetInfo = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetInfo
			!Returns/sets the movie window size
  			INTEGER*4 FUNCTION IActiveMovie2_GetMovieWindowSize($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetMovieWindowSize
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MovieWindowSize', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 38, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetMovieWindowSize = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetMovieWindowSize
			!Returns/sets the number of times the movie will be played
  			INTEGER*4 FUNCTION IActiveMovie2_GetPlayCount($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetPlayCount
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlayCount', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 14, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetPlayCount = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetPlayCount
			!Returns/sets the rate of the multimedia stream
  			REAL*8 FUNCTION IActiveMovie2_GetRate($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetRate
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rate', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 18, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetRate = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetRate
			!Returns the rating of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie2_GetRating($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetRating
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rating', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 10, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetRating = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetRating
			!Returns the readiness state of the control
  			INTEGER*4 FUNCTION IActiveMovie2_GetReadyState($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetReadyState
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ReadyState', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, -525, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetReadyState = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetReadyState
			!Returns/sets the position where playback will stop
  			REAL*8 FUNCTION IActiveMovie2_GetSelectionEnd($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetSelectionEnd
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionEnd', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 16, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetSelectionEnd = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetSelectionEnd
			!Returns/sets the position where playback will begin
  			REAL*8 FUNCTION IActiveMovie2_GetSelectionStart($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetSelectionStart
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				REAL*8, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionStart', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 15, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetSelectionStart = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetSelectionStart
			!Shows/hides the control panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetShowControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetShowControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 23, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetShowControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetShowControls
			!Shows/hides the display panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetShowDisplay($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetShowDisplay
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowDisplay', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 22, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetShowDisplay = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetShowDisplay
			!Shows/hides the position buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetShowPositionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetShowPositionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowPositionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 24, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetShowPositionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetShowPositionControls
			!Shows/hides the selection buttons in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetShowSelectionControls($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetShowSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowSelectionControls', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 25, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetShowSelectionControls = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetShowSelectionControls
			!Shows/hides the tracker bar in the control panel
  			LOGICAL*2 FUNCTION IActiveMovie2_GetShowTracker($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetShowTracker
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowTracker', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 26, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetShowTracker = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetShowTracker
			!Returns the title of the movie clip
  			CHARACTER*(2048) FUNCTION IActiveMovie2_GetTitle($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetTitle
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				CHARACTER*(2048), VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Title', $RETURN, .TRUE., VT_BSTR)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 7, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetTitle = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetTitle
			!Returns/sets the audio volume of the multimedia stream
  			INTEGER*4 FUNCTION IActiveMovie2_GetVolume($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_GetVolume
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				INTEGER*4, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Volume', $RETURN, .TRUE.)
				$$STATUS = AUTOGETPROPERTYBYID($OBJECT, 19, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_GetVolume = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_GetVolume
			!Determines whether the sound card is enabled on the machine
  			LOGICAL*2 FUNCTION IActiveMovie2_IsSoundCardEnabled($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_IsSoundCardEnabled
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				LOGICAL*2, VOLATILE :: $RETURN
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
				$$STATUS = AUTOINVOKE($OBJECT, 53, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				IActiveMovie2_IsSoundCardEnabled = $RETURN
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END FUNCTION IActiveMovie2_IsSoundCardEnabled
			!Puts the multimedia stream into Paused state
  			SUBROUTINE IActiveMovie2_Pause($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_Pause
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1610743810, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_Pause
			!Puts the multimedia stream into Running state
  			SUBROUTINE IActiveMovie2_Run($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_Run
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1610743809, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_Run
			!Allows/disallows changing the display mode at run time
  			SUBROUTINE IActiveMovie2_SetAllowChangeDisplayMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetAllowChangeDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowChangeDisplayMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 33, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetAllowChangeDisplayMode
			!Allows/disallows hiding the control panel at run time
  			SUBROUTINE IActiveMovie2_SetAllowHideControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetAllowHideControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 31, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetAllowHideControls
			!Allows/disallows hiding the display panel at run time
  			SUBROUTINE IActiveMovie2_SetAllowHideDisplay($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetAllowHideDisplay
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AllowHideDisplay', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 30, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetAllowHideDisplay
			!Returns/sets the appearance
  			SUBROUTINE IActiveMovie2_SetAppearance($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetAppearance
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Appearance', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, -520, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetAppearance
			!Indicates whether the media clip will rewind automatically after playing
  			SUBROUTINE IActiveMovie2_SetAutoRewind($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetAutoRewind
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoRewind', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 41, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetAutoRewind
			!Indicates whether the Control will start playing when activated
  			SUBROUTINE IActiveMovie2_SetAutoStart($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetAutoStart
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'AutoStart', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 40, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetAutoStart
			!Returns/sets the stereo balance of the multimedia stream
  			SUBROUTINE IActiveMovie2_SetBalance($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetBalance
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Balance', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 20, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetBalance
			!Returns/sets the border style
  			SUBROUTINE IActiveMovie2_SetBorderStyle($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetBorderStyle
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'BorderStyle', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 42, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetBorderStyle
			!Returns/sets the current position of the multimedia stream
  			SUBROUTINE IActiveMovie2_SetCurrentPosition($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetCurrentPosition
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'CurrentPosition', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 13, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetCurrentPosition
			!Returns/sets the background color of the display panel
  			SUBROUTINE IActiveMovie2_SetDisplayBackColor($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetDisplayBackColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Unsigned
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayBackColor', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 37, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetDisplayBackColor
			!Returns/sets the foreground color of the display panel
  			SUBROUTINE IActiveMovie2_SetDisplayForeColor($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetDisplayForeColor
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Unsigned
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayForeColor', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 36, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetDisplayForeColor
			!Returns/sets the display mode (time or frames)
  			SUBROUTINE IActiveMovie2_SetDisplayMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetDisplayMode
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'DisplayMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 32, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetDisplayMode
			!Enables/disables the right-click context menu
  			SUBROUTINE IActiveMovie2_SetEnableContextMenu($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetEnableContextMenu
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableContextMenu', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 21, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetEnableContextMenu
			!Enables/disables the control
  			SUBROUTINE IActiveMovie2_SetEnabled($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetEnabled
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Enabled', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, -514, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetEnabled
			!Enables/disables the position buttons in the control panel
  			SUBROUTINE IActiveMovie2_SetEnablePositionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetEnablePositionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnablePositionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 27, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetEnablePositionControls
			!Enables/disables the selection buttons in the control panel
  			SUBROUTINE IActiveMovie2_SetEnableSelectionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetEnableSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableSelectionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 28, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetEnableSelectionControls
			!Enables/disables the tracker bar in the control panel
  			SUBROUTINE IActiveMovie2_SetEnableTracker($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetEnableTracker
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'EnableTracker', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 29, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetEnableTracker
			!Returns/sets the current multimedia file
  			SUBROUTINE IActiveMovie2_SetFileName($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetFileName
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FileName', $ARG1, .FALSE., VT_BSTR)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 11, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetFileName
			!Returns/sets the current filter graph
  			SUBROUTINE IActiveMovie2_SetFilterGraph($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetFilterGraph
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! IUnknown
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FilterGraph', $ARG1, .FALSE., VT_UNKNOWN)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 34, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetFilterGraph
			!Indicates whether the media clip will run full screen
  			SUBROUTINE IActiveMovie2_SetFullScreenMode($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetFullScreenMode
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'FullScreenMode', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 39, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetFullScreenMode
			!Returns/sets the movie window size
  			SUBROUTINE IActiveMovie2_SetMovieWindowSize($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetMovieWindowSize
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(IN)	:: $ARG1	! Void
				!DEC$ ATTRIBUTES REFERENCE	:: $ARG1
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'MovieWindowSize', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 38, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetMovieWindowSize
			!Returns/sets the number of times the movie will be played
  			SUBROUTINE IActiveMovie2_SetPlayCount($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetPlayCount
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'PlayCount', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 14, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetPlayCount
			!Returns/sets the rate of the multimedia stream
  			SUBROUTINE IActiveMovie2_SetRate($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetRate
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Rate', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 18, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetRate
			!Returns/sets the position where playback will stop
  			SUBROUTINE IActiveMovie2_SetSelectionEnd($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetSelectionEnd
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionEnd', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 16, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetSelectionEnd
			!Returns/sets the position where playback will begin
  			SUBROUTINE IActiveMovie2_SetSelectionStart($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetSelectionStart
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'SelectionStart', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 15, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetSelectionStart
			!Shows/hides the control panel
  			SUBROUTINE IActiveMovie2_SetShowControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetShowControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 23, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetShowControls
			!Shows/hides the display panel
  			SUBROUTINE IActiveMovie2_SetShowDisplay($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetShowDisplay
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowDisplay', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 22, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetShowDisplay
			!Shows/hides the position buttons in the control panel
  			SUBROUTINE IActiveMovie2_SetShowPositionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetShowPositionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowPositionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 24, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetShowPositionControls
			!Shows/hides the selection buttons in the control panel
  			SUBROUTINE IActiveMovie2_SetShowSelectionControls($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetShowSelectionControls
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowSelectionControls', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 25, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetShowSelectionControls
			!Shows/hides the tracker bar in the control panel
  			SUBROUTINE IActiveMovie2_SetShowTracker($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetShowTracker
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'ShowTracker', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 26, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetShowTracker
			!Returns/sets the audio volume of the multimedia stream
  			SUBROUTINE IActiveMovie2_SetVolume($OBJECT, $ARG1, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_SetVolume
				IMPLICIT NONE
	
				INTEGER*4, 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*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				CALL AUTOADDARG(invokeargs, 'Volume', $ARG1)
				$$STATUS = AUTOSETPROPERTYBYID($OBJECT, 19, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_SetVolume
			!Puts the multimedia stream into Stopped state
  			SUBROUTINE IActiveMovie2_Stop($OBJECT, $STATUS)
				!DEC$ ATTRIBUTES DLLEXPORT	:: IActiveMovie2_Stop
				IMPLICIT NONE
	
				INTEGER*4, INTENT(IN)	:: $OBJECT	 ! Object Pointer
				!DEC$ ATTRIBUTES VALUE	:: $OBJECT
				INTEGER*4, INTENT(OUT), OPTIONAL	:: $STATUS	 ! Method status
				!DEC$ ATTRIBUTES REFERENCE			:: $STATUS
				INTEGER*4 $$STATUS
				INTEGER*4 invokeargs
				invokeargs = AUTOALLOCATEINVOKEARGS()
				$$STATUS = AUTOINVOKE($OBJECT, 1610743811, invokeargs)
				IF (PRESENT($STATUS)) $STATUS = $$STATUS
				CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
			END SUBROUTINE IActiveMovie2_Stop
	END MODULE
