oMsgItem := TMSGITEM():New( oMsgbar, cMsg, nSize, oFont,
                                 nClrFore, nClrBack,.T., bAction )
-------------------------------------------------------------------------------

    DEFINE MSGITEM [ <oMsgItem> ]  ;
         [ OF <oMsgBar> ] ;
         [ PROMPT <cMsg> ] ;
         [ SIZE <nSize> ] ;
         [ FONT <oFont> ] ;
         [ COLOR | COLORS <nClrFore> [,<nClrBack> ] ] ;
         [ ACTION <uAction> ] ;


 PARAMETER:


  <oMsgItem>   Is a reference to the new message Item

  <oMsgBar>    Is a reference to the message bar object, that will receive
               the message Item

  <cMsg>       A string with that will become the messageItem text

  <nSize>      The visible size ( in characters ) of the message text

  <oFont>      The font that will be used for the message item

  <nClrFore>   The foreground color that is used to draw on the message bar.
               This can either be a Windows COLOR number or a Clipper color 
               string (ie "R/G"), in which case the nClrBack parameter 
               will be ignored.

  <nClrBack>   The background color of the message bar. This has to be a a
               Windows COLOR number.

  <uAction>    Is the Action that is performed when the the mouse is 
               clicked on the message Item.


 DESCRIPTION:

  This command lets you create your own message items and adds them to the
  message bar. You can also attach a special Action to this message item.


 EXAMPLE:

     +-------------------------------------------------------------+
     |  /* Create a message bar */                                 |
     |  DEFINE MESSAGE oMsg OF oWin ;                              |
     |   PROMPT "Here is our Cursor"                               |
     |                                                             |
     |  /* Create a new item that shows the cursor coordinates */  |
     |  DEFINE MSGITEM oRow OF oMsg SIZE 30 COLOR "R+/W"           |
     |  DEFINE MSGITEM oCol OF oMsg SIZE 30 COLOR "R+/W"           |
     |                                                             |
     |  /* use the bMoved Event to update the message bar items */ |
     |  oWin:bMoved := { |nRow,nCol,nFlags| oRow:SetText( nRow ),; |
     |                                      oCol:SetText( nCol )}  |
     |                                                             |
     +-------------------------------------------------------------+