;Autor: Kurzer EnableExplicit Define EventID Define StatusBarFieldText$ = Space(255) If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) If CreateStatusBar(0, WindowID(0)) AddStatusBarField(100) AddStatusBarField(200) AddStatusBarField(200) StatusBarText(0, 0, "1. Feld") StatusBarText(0, 1, "Mein Feld ist super") StatusBarText(0, 2, "Noch ein Feld") EndIf SendMessage_(StatusBarID(0), #SB_GETTEXT, 1, @StatusBarFieldText$) MessageRequester("", "Inhalt: " + StatusBarFieldText$, 0) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf