XProfan

Def GetSysColor(1) !"USER32","GetSysColor"

Proc TransparentResource

    Parameters hInst&,Res$,b%,h%,Temp_Bmp$
    MCLS b%,h%
    StartPaint -1
    Cls GetSysColor(15)
    DrawExtBmp hInst&,Res$,0,0;-1
    SaveBmp Temp_Bmp$,0,0-240,16
    EndPaint

EndProc

Declare ToolbarBmp$,hTB&,hBild&
ToolbarBmp$=$TempDir + "XYZTollbar.bmp"
TransparentResource %HInstance,"TOOLBAR",240,16,ToolbarBmp$
hBild& = create("HPIC",-1,ToolbarBmp$)
Erase ToolbarBmp$
Cls
hTB&=Create("Toolbar",%hwnd,hBild&,0,16,2000,3)
...
DeleteObject hBild&