with GNATCOM.Dispinterface;

package MSHTML.IHTMLSelectElement5_Interface is

   type IHTMLSelectElement5_Type is
     new GNATCOM.Dispinterface.Dispinterface_Type with null record;

   procedure Initialize (This : in out IHTMLSelectElement5_Type);

   function Pointer (This : IHTMLSelectElement5_Type)
     return Pointer_To_IHTMLSelectElement5;

   procedure Attach (This    : in out IHTMLSelectElement5_Type;
                     Pointer : in     Pointer_To_IHTMLSelectElement5);

   procedure add
     (This       : IHTMLSelectElement5_Type;
      pElem      : Pointer_To_IHTMLOptionElement;
      pvarBefore : access GNATCOM.Types.VARIANT :=
        GNATCOM.Types.PVARIANT_MISSING);

end MSHTML.IHTMLSelectElement5_Interface;

