package body MSHTML.DispHTCEventBehavior_Object is

   procedure fire
     (This : DispHTCEventBehavior_Type;
      pVar : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         DispHTCEventBehavior_fire,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pVar),
         Free);
   end fire;

end MSHTML.DispHTCEventBehavior_Object;

