#Include "window9.bi"

' буфер , принимающий сообщения
Dim As Integer iEvent

' хендл окна
Dim As HWND hWin

' Создаем окно без рамки
'и с возможной прозрачностью
hWin = OpenWindow(_
       "", 0, 0, 300, 180,_
       WS_POPUP Or WS_VISIBLE,_
       WS_EX_LAYERED _
       )

' окно поверх всех окон       
SetWindowTop(_
     hWin,1 _
     )

' окно по центру
CenterWindow(_
     hWin _
     )

' ставим цвет окна  
WindowColor(_
     hWin,&h1 _
     )
      
' ставим цвет прозрачных пикселов
SetLayeredWindowAttributes(_
          hWin,&h1,0,1 _
          )

' текстовый гаджет - надпись
TextGadget (_
     1, 6, 2, 220, 20,_
     "Для выхода нажать на кнопку",_
     SS_CENTER _
     )
      
' Кнопка
ButtonGadget (_
     2, 86, 30, 50, 20,_
     "Выход" _
     )     

' прозрачный фон, но
' непрозрачный текст
SetGadgetColor(_
      1, &h1 ,&hff,3 _
      )

' цикл отлова событий
Do
   
  iEvent = WaitEvent
   
  If iEvent = eventgadget Then
    
   Exit Do
   
  EndIf
   
Loop