;Autor: edel
;Ab Vista

EnableExplicit

Define EventID

#BCM_SETSHIELD = $1600 + $C

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ButtonGadget(1,10,10,100,20,"Admin-Button",0)
  
  SendMessage_(GadgetID(1), #BCM_SETSHIELD, 0, #True)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf