Синхронное воспроизведение двух звуковых файлов - Visual Basic .NET

Формулировка задачи:

Создаём новый проект. Добавляем библиотеку звуковую

wmp

Для этого заходим в: Свойства проекта Ссылки Добавить ссылку Вкладка вторая COM Добавляем Windows Media Player C:\WINDOWS\system32\wmp.dll Далее пишем программный код

Public Class Form1
 
    'Присвоение переменной пути местонахождения файла
    Dim pathHome As String = IO.Path.GetFullPath(Application.StartupPath)
 
    'Добавление библиотеки звука
    Dim WithEvents wmp As New WMPLib.WindowsMediaPlayerClass()
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wmp.currentMedia = wmp.newMedia(pathHome & "\1.mp3")
        wmp.controls.play()
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        wmp.currentMedia = wmp.newMedia(pathHome & "\2.mp3")
        wmp.controls.play()
    End Sub
 
End Class

После написания программного кода, добавляем в папку с изполняемым

.exe

файлом звуковые файлы

1.mp3

2.mp3

Как это работает. При нажатии на кнопку

Button1

возпроизводится звуковой файл

1.mp3

. Если затем нажать на кнопку

Button2

, то первый звуковой поток прервётся и заиграет второй файл

2.mp3

. Вопрос: как сделать, чтобы при возпроизведении звука он не перебивался, другим звуком? Другими словами, как запараллелить звуковые потоки?

Решение задачи: «Синхронное воспроизведение двух звуковых файлов»

textual
                            Листинг программы 
                        

                            Public Class Form1
 
    'Присвоение переменной пути местонахождения файла
    Dim pathHome As String = IO.Path.GetFullPath(Application.StartupPath)
 
    'Добавление библиотек звука
    Dim WithEvents wmp1 As New WMPLib.WindowsMediaPlayerClass()
 Dim WithEvents wmp2 As New WMPLib.WindowsMediaPlayerClass()
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wmp1.currentMedia = wmp1.newMedia(pathHome & "\1.mp3")
        wmp1.controls.play()
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        wmp2.currentMedia = wmp2.newMedia(pathHome & "\2.mp3")
        wmp2.controls.play()
    End Sub
 
End Class
                        