If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  CreateToolBar(0,WindowID(0))
  For a=1 To 10
    ToolBarStandardButton(a,a,0)
  Next
  
  SetWindowLongPtr_(ToolBarID(0),#GWL_STYLE,#WS_CHILD|#WS_VISIBLE)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf