#SingleInstance force
#HotkeyInterval 2
SoundGet, oldvol
posx := a_Screenwidth - 250
posy := a_Screenheight - 100
Gui, add, Progress, w200 h20 cblue vvolbar
Gui, +ToolWindow +alwaysontop
Gui, show, hide x%posx% y%posy%, Volume:
Gui +LastFound
WinSet, Transparent, 255
Loop
  {
    Sleep 100
    SoundGet, vol
    If (vol != oldvol)
      {
        soundget, smute,, mute
        if (smute = "ON")
          guicontrol, +cred, volbar
        else
          guicontrol, +cblue, volbar
        oldvol := vol
        GuiControl,, volbar, %vol%
        Gui, show, NA
        Gui +LastFound
        WinSet, Transparent, 255
        SetTimer, hidewin, 2000
      }
  }

hidewin:
  SetTimer, hidewin, off
  trans = 254
  Gui +LastFound
  Loop
    {
      WinSet, Transparent, %trans%
      trans -= 1
      If (trans <= 5)
          Break
    }
  Gui, show, hide
Return