EnableExplicit

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ButtonGadget(1,10,10,100,20,"Test-Button",0)
 
  HideGadget(1,0)
  If IsWindowVisible_(GadgetID(1))=1
    MessageRequester("","ButtonGadget ist nicht versteckt.",0)
  EndIf
  HideGadget(1,1)
  If IsWindowVisible_(GadgetID(1))=0
    MessageRequester("","ButtonGadget ist versteckt.",0)
  EndIf
  
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf