XPbox2()
 Draw a Titled box2, with broad border and shadow.
------------------------------------------------------------------------------

   Function:   XPbox2()

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

   Syntax:     XPbox2(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 XPbox2(t,l,b,r,cTitle,x)
               default x to 2
               scroll(t-1,l-3,b+1,r+3)
               dispBox(t,l,b,r,x)
               XPshadow(t-1,l-3,b+1,r+3,if(IsColor(),8,7))
               if cTitle<>NIL
                     XPdisplay(t, ( r + l - XPstrLen(cTitle)) / 2 ,;
                                ' '+cTitle+' ' )
               end
               Return (NIL)