SYNTAX        VHA_BOX(P1,P2,P3,P4,P5,P6)

PURPOSE       Builds window

ARGUMENTS     P1 - NUMERIC
                 - MANDATORY
                 - upper line of window

              P2 - NUMERIC
                 - MANDATORY
                 - left column of window

              P3 - NUMERIC
                 - MANDATORY
                 - bottom line of window

              P4 - NUMERIC
                 - MANDATORY
                 - right column of window

              P5 - NUMERIC
                 - OPTIONAL
                 - DEFAULT: 0 (no border)
                 - kind of border of window
                   1 = schadow upperleft
                   2 = schadow upperright
                   3 = schadow bottomright
                   4 = schadow bottomleft
                   5 = schadow arround
                   6 = double arround
                   7 = single arround
                   8 = colored in CL_DISPLAY
                   else no border

              P6 - LOGICAL
                 - OPTIONAL
                 - DEFAULT: .F.
                   .T. = transparant schadow (only colorscreen)
                   .F. = no transparant schadow

              P7 - CHARACTER
                 - OPTIONAL
                 - DEFAULT: standard color value CL_BOX
                 - color

RETURNS       NIL