/////////////////////////////////////////////////////////////////////
// PROGRESSMETER
/////////////////////////////////////////////////////////////////////

#command @ <row>, <col> PROGRESSMETER <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ RANGE <lo>, <hi> ] ;
      [ VALUE <v> ] ;
      [ WIDTH <w> ] ;
      [ HEIGHT <h> ] ;
      [ TOOLTIP <tooltip> ] ;
      [ HELPID <helpid> ] ;
      [ <invisible: INVISIBLE> ] ;
      [ BACKCOLOR <backcolor> ] ;
      [ FORECOLOR <forecolor> ] ;
      [ FONT <fontname> ] ;
      [ SIZE <fontsize> ] ;
      [ <bold: BOLD> ] ;
      [ <italic: ITALIC> ] ;
      [ <underline: UNDERLINE> ] ;
      [ <strikeout: STRIKEOUT> ] ;
      [ ACTION <action> ] ;
      [ <rtl: RTL> ] ;
      [ <clientedge: CLIENTEDGE> ] ;
      [ <disabled: DISABLED> ] ;
      [ SUBCLASS <subclass> ] ;
   => ;
      [ <obj> := ] _OOHG_SelectSubClass( TProgressMeter(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <col>, <row>, <w>, <h>, <lo>, <hi>, ;
            <v>, <tooltip>, <fontname>, <fontsize>, <.bold.>, <.italic.>, ;
            <.underline.>, <.strikeout.>, <forecolor>, <backcolor>, ;
            <{action}>, <helpid>, <.invisible.>, <.rtl.>, <.clientedge.>, ;
            <.disabled.> )