OpenWindow(0, 0, 0, 100, 100, #PB_Window_BorderLess | #PB_Window_ScreenCentered, "Pin to desktop")

SetWindowPos_(WindowID(), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE)

CreateGadgetList(WindowID())
ButtonGadget(0, 0, 0, 100, 100, "Close")

Repeat
  Event = WaitWindowEvent()
 
  If Event = #PB_Event_Gadget
    Select EventGadgetID()
      Case 0
        Event = #PB_EventCloseWindow
    EndSelect
  EndIf
 
Until Event = #PB_EventCloseWindow