Hello:
good afternoon.
I draw in a XbpCrt()one box around Tbrowse() and I installed in it a 
vertical XbpScrollBar().
When I click in the area outside the buttons, part of the color is 
changed to black. When I click in the buttons it does not occurs.
Please see the attach.
I tried to change the colors of its :XbpWindow var and :XbpScrollBar and 
using :lockps() and to draw a XbpStatic below it and nothing worked.

I create the scroll bar like this:
    oVScroll   := XbpScrollBar():new(oCrt, NIL, aVPos, aVSize,;
                                     NIL,;
                                     .f.)
    oVScroll:range  := {0, nTotItems}
    oVScroll:type   := XBPSCROLL_VERTICAL
    oVScroll:scroll := {|aScroll| TbScrollVert_(b, oVScroll, 
aScroll[01], aScroll[02])}
    ovScroll:wheel  := {|aMousePos, aWheel| TbWheel_(b, oVScroll, 
aMousePos, aWheel)}
    oVScroll:create()
    oVScroll:setPresParam({{XBP_PP_BGCLR, cabWIN_MENU_CLRBG},;
                           {XBP_PP_FGCLR, cabWIN_MENU_CLRBG}})
    oVScroll:show()

The Presentation Parameters was not accepted in the :new() method.
In TbScrollVert_() function the scroll bar is already ugly.
Can somebody help me?

Beling
TIA