;~ AutoIt Version: 3.3.14.5
#include <MsgBoxConstants.au3>
#include <GUIConstants.au3>
_Example()
Func _Example()
Local $hGUI = GUICreate(@ScriptName, 400, 400)
GUISetBkColor(0)
Local $idLbl = GUICtrlCreateLabel("", 200, 200, 200, 200)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $idLbl
MsgBox($MB_TOPMOST + $MB_ICONINFORMATION, Default, "Бинго!", 0, $hGUI)
GUICtrlSetBkColor($idLbl, 0xFF0000)
EndSwitch
WEnd
EndFunc ;==>_Example