EnableExplicit

LoadFont(1,"",15)

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered|#PB_Window_Invisible)
  If CreateStatusBar(1,WindowID(0))
    AddStatusBarField(#PB_Ignore)
    StatusBarText(1,0,"Die Schriftgröße wurde verändert.")
    SendMessage_(StatusBarID(1),#WM_SETFONT,FontID(1),0)
  EndIf
  
  HideWindow(0,0)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf