package body MSHTML.HTMLElementEvents3_Object is

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

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

end MSHTML.HTMLElementEvents3_Object;

