EnableExplicit

Define a

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateToolBar(0,WindowID(0))
    SetWindowLongPtr_(ToolBarID(0),#GWL_STYLE,#WS_CHILD | #WS_VISIBLE | #CCS_NORESIZE | #CCS_NODIVIDER | #TBSTYLE_WRAPABLE)
    MoveWindow_(ToolBarID(0),50,50,400,45,1)
    
  EndIf
  
  For a=1 To 30
    ToolBarStandardButton(a,Random(10))
  Next
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf