package body MSHTML.DispCEventObj_Object is

   procedure Put_returnValue
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_returnValue,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_returnValue;

   function Get_returnValue
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_returnValue);
   end Get_returnValue;

   procedure Put_cancelBubble
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_cancelBubble,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_cancelBubble;

   function Get_cancelBubble
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_cancelBubble);
   end Get_cancelBubble;

   procedure Put_keyCode
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_keyCode,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_keyCode;

   function Get_keyCode
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_keyCode);
   end Get_keyCode;

   procedure setAttribute
     (This             : DispCEventObj_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      AttributeValue   : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispCEventObj_setAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => AttributeValue,
          3 => strAttributeName),
         Free);
   end setAttribute;

   function getAttribute
     (This             : DispCEventObj_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispCEventObj_getAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => strAttributeName),
         Free);
   end getAttribute;

   function removeAttribute
     (This             : DispCEventObj_Type;
      strAttributeName : GNATCOM.Types.VARIANT;
      lFlags           : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free             : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         DispCEventObj_removeAttribute,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => lFlags,
          2 => strAttributeName),
         Free);
   end removeAttribute;

   procedure Put_propertyName
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_propertyName,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_propertyName;

   function Get_propertyName
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_propertyName);
   end Get_propertyName;

   procedure PutRef_bookmarks
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispCEventObj_PutRef_bookmarks,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_bookmarks;

   function Get_bookmarks
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_bookmarks);
   end Get_bookmarks;

   procedure PutRef_recordset
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispCEventObj_PutRef_recordset,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_recordset;

   function Get_recordset
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_recordset);
   end Get_recordset;

   procedure Put_dataFld
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_dataFld,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_dataFld;

   function Get_dataFld
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_dataFld);
   end Get_dataFld;

   procedure PutRef_boundElements
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispCEventObj_PutRef_boundElements,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_boundElements;

   function Get_boundElements
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_boundElements);
   end Get_boundElements;

   procedure Put_repeat
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_repeat,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_repeat;

   function Get_repeat
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_repeat);
   end Get_repeat;

   procedure Put_srcUrn
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_srcUrn,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_srcUrn;

   function Get_srcUrn
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_srcUrn);
   end Get_srcUrn;

   procedure PutRef_srcElement
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispCEventObj_PutRef_srcElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_srcElement;

   function Get_srcElement
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_srcElement);
   end Get_srcElement;

   procedure Put_altKey
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_altKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_altKey;

   function Get_altKey
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_altKey);
   end Get_altKey;

   procedure Put_ctrlKey
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_ctrlKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ctrlKey;

   function Get_ctrlKey
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_ctrlKey);
   end Get_ctrlKey;

   procedure Put_shiftKey
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_shiftKey,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_shiftKey;

   function Get_shiftKey
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_shiftKey);
   end Get_shiftKey;

   procedure PutRef_fromElement
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispCEventObj_PutRef_fromElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_fromElement;

   function Get_fromElement
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_fromElement);
   end Get_fromElement;

   procedure PutRef_toElement
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispCEventObj_PutRef_toElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_toElement;

   function Get_toElement
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_toElement);
   end Get_toElement;

   procedure Put_button
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_button,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_button;

   function Get_button
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_button);
   end Get_button;

   procedure Put_type
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_type,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_type;

   function Get_type
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_type);
   end Get_type;

   procedure Put_qualifier
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_qualifier,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_qualifier;

   function Get_qualifier
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_qualifier);
   end Get_qualifier;

   procedure Put_reason
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_reason,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_reason;

   function Get_reason
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_reason);
   end Get_reason;

   procedure Put_x
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_x,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_x;

   function Get_x
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_x);
   end Get_x;

   procedure Put_y
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_y,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_y;

   function Get_y
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_y);
   end Get_y;

   procedure Put_clientX
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_clientX,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_clientX;

   function Get_clientX
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_clientX);
   end Get_clientX;

   procedure Put_clientY
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_clientY,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_clientY;

   function Get_clientY
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_clientY);
   end Get_clientY;

   procedure Put_offsetX
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_offsetX,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_offsetX;

   function Get_offsetX
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_offsetX);
   end Get_offsetX;

   procedure Put_offsetY
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_offsetY,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_offsetY;

   function Get_offsetY
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_offsetY);
   end Get_offsetY;

   procedure Put_screenX
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_screenX,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_screenX;

   function Get_screenX
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_screenX);
   end Get_screenX;

   procedure Put_screenY
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_screenY,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_screenY;

   function Get_screenY
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_screenY);
   end Get_screenY;

   procedure PutRef_srcFilter
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT)
   is
   begin
      PutRef
        (This,
         DispCEventObj_PutRef_srcFilter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1));
   end PutRef_srcFilter;

   function Get_srcFilter
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_srcFilter);
   end Get_srcFilter;

   function Get_dataTransfer
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_dataTransfer);
   end Get_dataTransfer;

   function Get_contentOverflow
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_contentOverflow);
   end Get_contentOverflow;

   procedure Put_shiftLeft
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_shiftLeft,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_shiftLeft;

   function Get_shiftLeft
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_shiftLeft);
   end Get_shiftLeft;

   procedure Put_altLeft
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_altLeft,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_altLeft;

   function Get_altLeft
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_altLeft);
   end Get_altLeft;

   procedure Put_ctrlLeft
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_ctrlLeft,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_ctrlLeft;

   function Get_ctrlLeft
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_ctrlLeft);
   end Get_ctrlLeft;

   function Get_imeCompositionChange
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_imeCompositionChange);
   end Get_imeCompositionChange;

   function Get_imeNotifyCommand
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_imeNotifyCommand);
   end Get_imeNotifyCommand;

   function Get_imeNotifyData
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_imeNotifyData);
   end Get_imeNotifyData;

   function Get_imeRequest
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_imeRequest);
   end Get_imeRequest;

   function Get_imeRequestData
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_imeRequestData);
   end Get_imeRequestData;

   function Get_keyboardLayout
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_keyboardLayout);
   end Get_keyboardLayout;

   function Get_behaviorCookie
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_behaviorCookie);
   end Get_behaviorCookie;

   function Get_behaviorPart
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_behaviorPart);
   end Get_behaviorPart;

   function Get_nextPage
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_nextPage);
   end Get_nextPage;

   function Get_wheelDelta
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_wheelDelta);
   end Get_wheelDelta;

   procedure Put_url
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_url,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_url;

   function Get_url
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_url);
   end Get_url;

   procedure Put_data
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_data,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_data;

   function Get_data
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_data);
   end Get_data;

   function Get_source
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_source);
   end Get_source;

   procedure Put_origin
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_origin,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_origin;

   function Get_origin
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_origin);
   end Get_origin;

   procedure Put_issession
     (This : DispCEventObj_Type;
      P1   : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Put
        (This,
         DispCEventObj_Put_issession,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => P1),
         Free);
   end Put_issession;

   function Get_issession
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_issession);
   end Get_issession;

   function Get_actionURL
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_actionURL);
   end Get_actionURL;

   function Get_buttonID
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_buttonID);
   end Get_buttonID;

   function Get_constructor
     (This : DispCEventObj_Type)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Get (This, DispCEventObj_Get_constructor);
   end Get_constructor;

end MSHTML.DispCEventObj_Object;

