EnableExplicit

Define TBID

Procedure ToolBarText(hwnd,ButtonID,Text.s)
  Protected tbi.TBBUTTONINFO
  
  tbi.TBBUTTONINFO
  tbi\cbSize = SizeOf(TBBUTTONINFO)
  tbi\dwMask = #TBIF_TEXT | #TBIF_STYLE
  tbi\fsStyle = #BTNS_BUTTON | #BTNS_AUTOSIZE
  tbi\pszText = @Text
  SendMessage_(hwnd,#TB_SETBUTTONINFO,ButtonID,tbi)
  
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateToolBar(0,WindowID(0))
    SetWindowLongPtr_(ToolBarID(0), #GWL_STYLE, GetWindowLongPtr_(ToolBarID(0), #GWL_STYLE) | #TBSTYLE_LIST)
    ToolBarImageButton(0,0)
    ToolBarImageButton(1,0)
    ToolBarImageButton(2,0)
    
    ToolBarText(ToolBarID(0),0,"Neu")
    ToolBarText(ToolBarID(0),1,"Öffnen")
    ToolBarText(ToolBarID(0),2,"Speichern")
    
    TBID = SendMessage_(ToolBarID(0),#TB_GETIMAGELIST,0,0)
    ImageList_SetIconSize_(TBID,0,16)
    SendMessage_(ToolBarID(0),#TB_SETIMAGELIST,0,TBID)
    SendMessage_(ToolBarID(0),#TB_AUTOSIZE,0,0)
    
  EndIf
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf