EnableExplicit

Define EventID
Define Iconic

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
  TextGadget(1,10,10,480,20,"Bitte minimieren Sie das Fenster jetzt.",0)
  
  Repeat
    EventID=WaitWindowEvent(10)
    If Iconic=0
      Iconic = IsIconic_(WindowID(0))
    ElseIf Iconic=1
      SetWindowState(0,#PB_Window_Normal);Wird nur verwendet, um MessageBox im Vordergrund anzuzeigen
      MessageRequester("","Fenster wurde minimiert.",0)
      Iconic=2
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf