XPbox()
 Draw a Titled box, with border and shadow.
------------------------------------------------------------------------------

   Function:   XPbox()

               This is a simple function that draws a box with a border
               and a shadow, and put's a title. See Source.

   Syntax:     XPbox(t,l,b,r,cTitle,x) --> NIL

   Arguments:  t,l,b,r is the Box size. cTitle is the title to put. x
               is the argument given to Clipper's DispBox().

   Returns:    NIL

   Usage:      Here's the source code:
               Function XPbox(t,l,b,r,cTitle,x)
               default x to 1
               scroll(t,l-1,b,r+1)
               dispbox(t,l,b,r,x)
               XPshadow(t,l-1,b,r+1,if(IsColor(),8,7))
               if cTitle<>NIL
                       XPdisplay(t, ( r + l - XPstrLen(cTitle)) / 2 ,;
                                  ' '+cTitle+' ' )
               end
               Return (NIL)