EnableExplicit #TBCDRF_NOBACKGROUND = $00400000 Procedure WindowCallback(hWnd,uMsg,wParam,lParam) Protected *nmh.NMHDR Protected *nmtbc.NMTBCUSTOMDRAW Select uMsg Case #WM_NOTIFY *nmh.NMHDR = lParam If *nmh\hwndFrom = ToolBarID(0) Select *nmh\code Case #NM_CUSTOMDRAW *nmtbc.NMTBCUSTOMDRAW = lParam If *nmtbc\nmcd\dwDrawStage = #CDDS_ITEMPREPAINT ProcedureReturn #TBCDRF_NOBACKGROUND EndIf ProcedureReturn #CDRF_NOTIFYITEMDRAW EndSelect EndIf EndSelect ProcedureReturn #PB_ProcessPureBasicEvents EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) If CreateToolBar(0,WindowID(0)) ToolBarStandardButton(1,#PB_ToolBarIcon_New) ToolBarStandardButton(2,#PB_ToolBarIcon_Open) ToolBarStandardButton(3,#PB_ToolBarIcon_Save) EndIf SetWindowCallback(@WindowCallback()) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf