package body MSHTML.IHTMLImageElementFactory_Object is

   function create
     (This   : IHTMLImageElementFactory_Type;
      width  : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      height : GNATCOM.Types.VARIANT
        := GNATCOM.Types.VARIANT_MISSING;
      Free   : Boolean := True)
     return GNATCOM.Types.VARIANT
   is
   begin
      return Invoke
        (This,
         IHTMLImageElementFactory_create,
         GNATCOM.Dispinterface.Parameter_Array'
         (1 => height,
          2 => width),
         Free);
   end create;

end MSHTML.IHTMLImageElementFactory_Object;

