Procedure ToolBarText(hwnd,ButtonID,Text.s)
   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)
    ToolBarStandardButton(0,#PB_ToolBarIcon_New)
    ToolBarStandardButton(1,#PB_ToolBarIcon_Open)
    ToolBarStandardButton(2,#PB_ToolBarIcon_Save)
    
    ToolBarText(ToolBarID(0),0,"New")
    ToolBarText(ToolBarID(0),1,"Open")
    ToolBarText(ToolBarID(0),2,"Save")
  EndIf
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf