I would like to know how to change the color of a statusbar control dropped in a Top-Level form ...

Thanks in advance for your help

I have tried several approches, including the following code, but get no result :

In the Form.Init procedure

DECLARE INTEGER SendMessage IN user32;
INTEGER hWnd,;
INTEGER Msg,;
INTEGER wParam,;
INTEGER lParam

#DEFINE SB_SETBKCOLOR 2001

*-- Call API to Change Color of Status Bar
= SENDMESSAGE (THISFORM.StatusBar1.hWnd, SB_SETBKCOLOR, 0, RGB(246,246,246))