EnableExplicit

Define EventID
Define binf.TBBUTTONINFO

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateToolBar(1,WindowID(0))
    ToolBarStandardButton(0,#PB_ToolBarIcon_New)
    ToolBarStandardButton(1,#PB_ToolBarIcon_Open)
    ToolBarStandardButton(2,#PB_ToolBarIcon_Save)
    
    binf.TBBUTTONINFO
    binf\cbSize    = SizeOf(TBBUTTONINFO)
    binf\dwMask    = #TBIF_SIZE
    binf\cx        = 100
    binf\idCommand = 1
    SendMessage_(ToolBarID(1), #TB_SETBUTTONINFO, 1, binf)
    
  EndIf
  
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf