~LButton::

TransVel := -1

wheelup::

TransVel += 2

wheeldown::

TransVel -= 1

SetTimer, AdjustTrans, -100

return

AdjustTrans:

    Tooltip

    If TransVel = 0

        return

    WinID := WinExist("A")

    WinGet, Trans, Transparent, ahk_id %WinID%

    if(!Trans)

        Trans := 254

    Trans += TransVel

    if(Trans < 30)

        Trans := 30

    if Trans Not Between 31 And 254

        TransVel = 0

    if(Trans >= 255)

        Trans := "Off"

    ToolTip, % "Transparency: " Trans

    WinSet, Transparent, %Trans%, ahk_id %WinID%

    SetTimer, AdjustTrans, -200

return