EnableExplicit Define EventID Define pcrKey Define pbAlpha Define pdwFlags If OpenLibrary(0, "User32.dll") Prototype GetLayeredWindowAttributes(hwnd, pcrKey, pbAlpha, pdwFlags) Define GetLayeredWindowAttributes.GetLayeredWindowAttributes = GetFunction(0, "GetLayeredWindowAttributes") CloseLibrary(0) EndIf If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) SetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE,GetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE) | #WS_EX_LAYERED) SetLayeredWindowAttributes_(WindowID(0), 0, 150, #LWA_ALPHA) GetLayeredWindowAttributes(WindowID(0), @pcrKey, @pbAlpha, @pdwFlags) Debug "ALPHA-Wert: " + pbAlpha Select pdwFlags Case #LWA_ALPHA Debug "Flag: ALPHA" Case #LWA_COLORKEY Debug "Flag: COLORKEY" EndSelect Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf