'Must referance the NAudio dll
Imports System.ComponentModel
Imports NAudio.CoreAudioApi



Public Class VolumeControls
    Dim MMDE As NAudio.CoreAudioApi.MMDeviceEnumerator = Nothing
    Dim WithEvents DefaultAudioEndpoint As NAudio.CoreAudioApi.MMDevice = Nothing
    Dim MaxLevel As AudioEndpointVolumeVolumeRange = Nothing
    Dim tWatchDefaultAudio As Threading.Thread = Nothing
    Dim RunThreadWatchDefaultAudio As Boolean = True
    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        MMDE = New NAudio.CoreAudioApi.MMDeviceEnumerator
        DefaultAudioEndpoint = MMDE.GetDefaultAudioEndpoint(DataFlow.Render, Role.Multimedia)
        Me.lbDeviceName.Text = DefaultAudioEndpoint.FriendlyName
        MaxLevel = DefaultAudioEndpoint.AudioEndpointVolume.VolumeRange
        tbVolumeSlider.Value = CIntNull(DefaultAudioEndpoint.AudioEndpointVolume.MasterVolumeLevelScalar * 100)
        Speaker.Visible = False
        SpeakerMuted.Visible = False
        UpdateSlider()
        tWatchDefaultAudio = New Threading.Thread(AddressOf GetVolumeSliderValues)
        tWatchDefaultAudio.Start()
    End Sub

    Private Sub tbVolumeSlider_ValueChanged(sender As Object, e As EventArgs) Handles tbVolumeSlider.ValueChanged
        UpdateSlider()
    End Sub

    Delegate Sub delUpdateSlider()
    Sub UpdateSlider()
        If DefaultAudioEndpoint Is Nothing Then
            lbPercent.Text = ""
        Else
            If tbVolumeSlider.InvokeRequired Then
                tbVolumeSlider.Invoke(New delUpdateSlider(AddressOf UpdateSlider))
            Else
                Dim tmpCurrentVolumeLevel As Single = DefaultAudioEndpoint.AudioEndpointVolume.MasterVolumeLevelScalar
                DefaultAudioEndpoint.AudioEndpointVolume.MasterVolumeLevelScalar = CSng(tbVolumeSlider.Value / tbVolumeSlider.Maximum)
                If tmpCurrentVolumeLevel <> DefaultAudioEndpoint.AudioEndpointVolume.MasterVolumeLevelScalar Then
                    DefaultAudioEndpoint.AudioEndpointVolume.Mute = False
                End If
                lbPercent.Text = ((tbVolumeSlider.Value / tbVolumeSlider.Maximum) * 100).ToString("##")
                If tbVolumeSlider.Value = 0 Then lbPercent.Text = "0"
                If DefaultAudioEndpoint.AudioEndpointVolume.Mute Then
                    Speaker.Visible = False
                    SpeakerMuted.Visible = True
                    lbMute.Text = "UnMute"
                Else
                    Speaker.Visible = True
                    SpeakerMuted.Visible = False
                    lbMute.Text = "Mute"
                End If
            End If
        End If
    End Sub
    Sub Mute() Handles Speaker.Click
        DefaultAudioEndpoint.AudioEndpointVolume.Mute = True
        UpdateSlider()
    End Sub
    Sub UnMute() Handles SpeakerMuted.Click
        DefaultAudioEndpoint.AudioEndpointVolume.Mute = False
        UpdateSlider()
    End Sub

    Delegate Sub delUpdateVolumeSlider(pValue As Integer, pMuted As Boolean)
    Sub UpdateVolumeSlider(pValue As Integer, pMuted As Boolean)
        If tbVolumeSlider.InvokeRequired Then
            tbVolumeSlider.Invoke(New delUpdateVolumeSlider(AddressOf UpdateVolumeSlider), pValue, pMuted)
        Else
            tbVolumeSlider.Value = pValue
            If pMuted Then
                Speaker.Visible = False
                SpeakerMuted.Visible = True
            Else
                Speaker.Visible = True
                SpeakerMuted.Visible = False
            End If
        End If
    End Sub

    Sub GetVolumeSliderValues()
        Do While RunThreadWatchDefaultAudio
            UpdateVolumeSlider(CIntNull(DefaultAudioEndpoint.AudioEndpointVolume.MasterVolumeLevelScalar * 100), DefaultAudioEndpoint.AudioEndpointVolume.Mute)
            UpdateSlider()
            Sleep(500)
        Loop
    End Sub

    Private Sub VolumeControls_Closed(sender As Object, e As EventArgs) Handles Me.Closed
        RunThreadWatchDefaultAudio = False
        Do While tWatchDefaultAudio.IsAlive
            Sleep(500)
        Loop
    End Sub

End Class