package body MSHTML.IHTMLControlRange2_Object is

   procedure addElement
     (This : IHTMLControlRange2_Type;
      item : GNATCOM.Types.VARIANT;
      Free : Boolean := True)
   is
   begin
      Invoke
        (This,
         IHTMLControlRange2_addElement,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => item),
         Free);
   end addElement;

end MSHTML.IHTMLControlRange2_Object;

