Procedure CenterHeaderText(header,col) hItem.HD_ITEM hItem\mask = #HDI_TEXT textBuff$ = Space(32) hItem\pszText = @textBuff$ hItem\cchTextMax = 32 SendMessage_(header, #HDM_GETITEM, col, @hItem) hItem\mask = #HDI_TEXT | #HDI_FORMAT hItem\fmt = #HDF_STRING | #HDF_CENTER SendMessage_(header, #HDM_SETITEM, col, hItem) EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) ListIconGadget(1,10,10,480,230,"Test-Überschrift",400,0) CenterHeaderText(SendMessage_(GadgetID(1),#LVM_GETHEADER,0,0),0) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf