> ... and I do not plan to make any more changes.

... but there are more Button than only PushButton ;)

what about Checkbox (!) as PUSHLIKE Button ?

* -------------------------------------------------- *

   oCheck1 := XbpCheckbox():new()
   oCheck1:caption := "OFF"
   oCheck1:create( , , aPos, {nIcoX,nIcoY} )
   IF lPimpIt
      PimpMyXb(oCheck1)
   ENDIF

* -------------------------------------------------- *

PROCEDURE PimpMyXb(oObj,lRound)
LOCAL hWnd
LOCAL nStyle

DEFAULT lRound TO .T.

   IF VALTYPE(oObj) = "O"
      hWnd := oObj:GetHWnd()
      oObj:hide()
      oObj:useVisualStyle := .F.

      nStyle := @user32:GetWindowLongA(hWnd, GWL_STYLE)
      nStyle := nOr(nStyle, BS_PUSHLIKE,BS_CENTER,BS_VCENTER) // this line set new Style
      @user32:SetWindowLongA(hWnd , GWL_STYLE , nStyle )
      @user32:InvalidateRect(hWnd,1)

      IF lRound
         MachKreise(oObj)
      ENDIF

oObj:show()
ENDIF

RETURN

* -------------------------------------------------- *

p.s. DXE Lib have many native Button. have a look ar Pablo Website www.xbwin.com -> forum