Несворачиваемая, дырявая форма

Procedure Draw(Image) ; Рисование кругов на форме
 If CreateImage(Image,200,200) And StartDrawing(ImageOutput(Image))
   x = 100
   y = 100
   For Radius = 100 To 10 Step -10
      Circle(x, y, radius ,RGB(Random(255),Random(255),Random(255)))
   Next
   StopDrawing()
   SetGadgetState(Image, ImageID(Image))
 EndIf
EndProcedure
 
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_BorderLess|#PB_Window_ScreenCentered) 
  StickyWindow(0,1)
  SetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE,GetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE) | #WS_EX_LAYERED|#WS_EX_TRANSPARENT|#WS_EX_TOPMOST) 
  SetLayeredWindowAttributes_(WindowID(0), 0, 120, #LWA_ALPHA)
  ImageGadget(2,100,10,200,200,0)
  Draw(2)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf

Procedure WindowCallback(Window, Message, wParam, lParam) 
  Select Message 
    Case #WM_CLOSE 
      DestroyWindow_(Window) 
    Case #WM_DESTROY 
      PostQuitMessage_(0) 
      Result  = 0 
    Default 
      Result  = DefWindowProc_(Window, Message, wParam, lParam) 
  EndSelect 
  ProcedureReturn Result 
EndProcedure 
 
InitCommonControls_()
#Style  = #WS_VISIBLE | #WS_SYSMENU
#StyleEx  = #WS_EX_TOPMOST
 
WindowClass.s  = "MyWin" 
wc.WNDCLASSEX 
wc\cbsize  = SizeOf(WNDCLASSEX) 
wc\lpfnWndProc  = @WindowCallback() 
wc\hCursor  = LoadCursor_(0, #IDC_ARROW)
wc\hbrBackground  = #COLOR_WINDOW
wc\lpszClassName  = @WindowClass 
RegisterClassEx_(@wc) 
 
hWndMain  = CreateWindowEx_(#StyleEx, WindowClass, "Test-Window", #Style, 100, 100, 200, 200, 0, 0, 0, 0) 
ShowWindow_(hWndMain,  #SW_SHOWDEFAULT) 
UpdateWindow_(hWndMain); 
 
While GetMessage_(msg.MSG, #Null, 0, 0 ) 
  TranslateMessage_(msg) 
  DispatchMessage_(msg) 
Wend