If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,10,480,230,"Test-Überschrift",400,0)
  
  SendMessage_(SendMessage_(GadgetID(1),#LVM_GETHEADER,0,0),#WM_SETFONT,LoadFont(0,"",12,#PB_Font_Bold),1)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf