package body MSHTML.HTMLLabelEvents2_Object is

   function onhelp
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onhelp,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onhelp;

   function onclick
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onclick,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onclick;

   function ondblclick
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_ondblclick,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondblclick;

   function onkeypress
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onkeypress,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onkeypress;

   procedure onkeydown
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onkeydown,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onkeydown;

   procedure onkeyup
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onkeyup,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onkeyup;

   procedure onmouseout
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmouseout,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmouseout;

   procedure onmouseover
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmouseover,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmouseover;

   procedure onmousemove
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmousemove,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmousemove;

   procedure onmousedown
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmousedown,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmousedown;

   procedure onmouseup
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmouseup,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmouseup;

   function onselectstart
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onselectstart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onselectstart;

   procedure onfilterchange
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onfilterchange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onfilterchange;

   function ondragstart
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_ondragstart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondragstart;

   function onbeforeupdate
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onbeforeupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onbeforeupdate;

   procedure onafterupdate
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onafterupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onafterupdate;

   function onerrorupdate
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onerrorupdate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onerrorupdate;

   function onrowexit
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onrowexit,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowexit;

   procedure onrowenter
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onrowenter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowenter;

   procedure ondatasetchanged
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_ondatasetchanged,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondatasetchanged;

   procedure ondataavailable
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_ondataavailable,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondataavailable;

   procedure ondatasetcomplete
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_ondatasetcomplete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondatasetcomplete;

   procedure onlosecapture
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onlosecapture,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onlosecapture;

   procedure onpropertychange
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onpropertychange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onpropertychange;

   procedure onscroll
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onscroll,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onscroll;

   procedure onfocus
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onfocus,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onfocus;

   procedure onblur
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onblur,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onblur;

   procedure onresize
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onresize,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onresize;

   function ondrag
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_ondrag,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondrag;

   procedure ondragend
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_ondragend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondragend;

   function ondragenter
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_ondragenter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondragenter;

   function ondragover
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_ondragover,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondragover;

   procedure ondragleave
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_ondragleave,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondragleave;

   function ondrop
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_ondrop,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondrop;

   function onbeforecut
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onbeforecut,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onbeforecut;

   function oncut
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_oncut,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end oncut;

   function onbeforecopy
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onbeforecopy,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onbeforecopy;

   function oncopy
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_oncopy,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end oncopy;

   function onbeforepaste
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onbeforepaste,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onbeforepaste;

   function onpaste
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onpaste,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onpaste;

   function oncontextmenu
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_oncontextmenu,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end oncontextmenu;

   procedure onrowsdelete
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onrowsdelete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowsdelete;

   procedure onrowsinserted
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onrowsinserted,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onrowsinserted;

   procedure oncellchange
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_oncellchange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end oncellchange;

   procedure onreadystatechange
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onreadystatechange,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onreadystatechange;

   procedure onlayoutcomplete
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onlayoutcomplete,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onlayoutcomplete;

   procedure onpage
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onpage,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onpage;

   procedure onmouseenter
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmouseenter,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmouseenter;

   procedure onmouseleave
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmouseleave,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmouseleave;

   procedure onactivate
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onactivate;

   procedure ondeactivate
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_ondeactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end ondeactivate;

   function onbeforedeactivate
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onbeforedeactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onbeforedeactivate;

   function onbeforeactivate
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onbeforeactivate,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onbeforeactivate;

   procedure onfocusin
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onfocusin,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onfocusin;

   procedure onfocusout
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onfocusout,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onfocusout;

   procedure onmove
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmove,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmove;

   function oncontrolselect
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_oncontrolselect,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end oncontrolselect;

   function onmovestart
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onmovestart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmovestart;

   procedure onmoveend
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onmoveend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmoveend;

   function onresizestart
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onresizestart,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onresizestart;

   procedure onresizeend
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
   is
   begin
      Invoke
        (This,
         HTMLLabelEvents2_onresizeend,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onresizeend;

   function onmousewheel
     (This    : HTMLLabelEvents2_Type;
      pEvtObj : GNATCOM.Types.VARIANT;
      Free    : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         HTMLLabelEvents2_onmousewheel,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pEvtObj),
         Free);
   end onmousewheel;

end MSHTML.HTMLLabelEvents2_Object;

