XProfan

'Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) into Babyklappe on XProfan.com stored:
'Window transparent settle
'PROFAN²-NT-TEAM-Presentation
'Author: Sven Schmidts, concept/solid
'cover: Transparent Window @ Win2k
'Description: Sorgt for this nice effect
'copyright © 2000-2001 Sven Schmidts, schmidts@cdesign.de
'Update for X3: Marc-Gordon Kröhn on the 10.02.2016
 $H windows.ph
def %LWA_ALPHA $2
def %GWL_EXSTYLE -20
def %WS_EX_LAYERED $80000
def %WS_EX_TRANSPARENT $20
def SetLayeredWindowAttributes(4) !"USER32","SetLayeredWindowAttributes"

Proc SetTransparent

    Parameters Hwnd%, Perc%
    var Old& = ~GetWindowLong(Hwnd%,%GWL_EXSTYLE)
    ~SetWindowLong(Hwnd%, %GWL_EXSTYLE, (Old& | %WS_EX_LAYERED));
    SetLayeredWindowAttributes(Hwnd%, 0, (255 * Perc%) / 100, %LWA_ALPHA);

ENDPROC

cls
SetTransparent %Hwnd, 80
WaitInput