here run ok
#include "FiveWin.ch"
#include "ribbon.ch"
function Main()
local oWnd
Local oBmp ,oImage
DEFINE WINDOW oWnd COLOR CLR_WHITE, CLR_WHITE
DEFINE BITMAP oImage FILENAME "caixa.bmp"
@ 116,117 RBBTN oBmp OF oWnd BITMAP "button.bmp" ;
SIZE 15, 15 PROMPT "" TOP TRANSPARENT ;
ACTION MsgAlert( "Red Button clicked", "Attention" )
oWnd:bPainted := {|hDc|ABPaint( hdc, 110,107, oImage:hBitmap, 220 )}
ACTIVATE WINDOW oWnd
return nil