Не получается сделать окно некликабельным

If OpenWindow(0, 0, 0, 400, 100, "Timer Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ProgressBarGadget(0, 10, 10, 380, 20, 0, 100)
  AddWindowTimer(0, 123, 250)
  StickyWindow(0, 1)
  
  SetWindowLongPtr_(WindowID(0), #GWL_EXSTYLE, GetWindowLongPtr_(WindowID(0), #GWL_EXSTYLE)|#WS_EX_LAYERED|#WS_EX_TRANSPARENT)
  SetLayeredWindowAttributes_(WindowID(0), 0, 150, 2)
  
  Value = 0
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Timer And EventTimer() = 123
      Value = (Value + 5) % 100
      SetGadgetState(0, Value)
    EndIf    
    
  Until Event = #PB_Event_CloseWindow
EndIf

; окно - чтобы убить прогу легче было. 
   OpenWindow(0, 544, 251, 270, 72, "Window_0", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
   Printstr.s = " До окончания игры осталось 5 минут!"  
    
   CellFont = CreateFont_(72,0,0,0,0,0,0,0,#DEFAULT_CHARSET,#OUT_DEFAULT_PRECIS,#CLIP_DEFAULT_PRECIS,#PROOF_QUALITY,0,"Arial") 
   
   Repeat 
   Event = WaitWindowEvent(60) 
   deskDC.l =GetDC_(0) 
   SetBkMode_(deskDC,1)
   SelectObject_(deskDC, CellFont) 
   SetTextColor_(deskDC, #Red) 
   TextOut_(deskDC, 500, 50, Printstr, Len(Printstr))
   ReleaseDC_(0, deskDC)
       
   Until  Event  = #PB_Event_CloseWindow