Transparentizing Window

gistfile1.ahk

;Increase the transparency of the active window.
#WheelUp:: 
WinGetClass, class, A
if (class <> "Progman")
{
  DetectHiddenWindows, on
    WinGet, curtrans, Transparent, A
    if ! curtrans
        curtrans = 255
    newtrans := curtrans + 8
    if newtrans > 0
    {
        WinSet, Transparent, %newtrans%, A
    }
    else
    {
        WinSet, Transparent, OFF, A
        WinSet, Transparent, 255, A
    }
}
Return
;Decrease the transparency of the active window.
#WheelDown:: 
WinGetClass, class, A
if (class <> "Progman")
{
	DetectHiddenWindows, on
    WinGet, curtrans, Transparent, A
    if ! curtrans
        curtrans = 255
    newtrans := curtrans - 8
    if newtrans > 0
    {
        WinSet, Transparent, %newtrans%, A
    }
}
Return
;Reset the transparency of the active window.
#O::
    WinSet, Transparent, 255, A
    WinSet, Transparent, OFF, A
Return