New Post: Controlling multiple waveOut instances

   Private Function CreateInputStream(ByVal fileName As String) As WaveStream
        Dim inputStream As WaveChannel32

        If fileName.EndsWith(".mp3") Then
            Dim mp3Reader As New Mp3FileReader(fileName)
            inputStream = New WaveChannel32(mp3Reader)
        ElseIf fileName.EndsWith(".wav") Then
            Dim wavReader As New WaveFileReader(fileName)
            inputStream = New WaveChannel32(wavReader)
        Else
            Throw New InvalidOperationException("Unsupported extension")
        End If

        volumeStream = inputStream

        Return volumeStream

    End Function

    Private Function PlayAudio(ByVal file As String, ByVal devNo As Integer)

        waveOutDevice = New WaveOut
        mainOutputStream = CreateInputStream(file)

        waveOutDevice.DeviceNumber = devNo
        waveOutDevice.Init(mainOutputStream)
        waveOutDevice.Play()

        Return waveOutDevice.PlaybackState
    End Function

    Private Function StopAudio()
        If Not waveOutDevice Is Nothing Then
            waveOutDevice.Stop()
        End If
        If Not mainOutputStream Is Nothing Then
            volumeStream.Close()
            volumeStream = Nothing
            mainOutputStream.Close()
            mainOutputStream = Nothing
        End If
        If Not waveOutDevice Is Nothing Then
            waveOutDevice.Dispose()
            waveOutDevice = Nothing
        End If
        Return Nothing
    End Function