package body MSHTML.IHTMLSelectElement5_Object is

   procedure add
     (This       : IHTMLSelectElement5_Type;
      pElem      : GNATCOM.Types.VARIANT;
      pvarBefore : GNATCOM.Types.VARIANT;
      Free       : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLSelectElement5_add,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => pvarBefore,
          2 => pElem),
         Free);
   end add;

end MSHTML.IHTMLSelectElement5_Object;

