Параллельное воспроизведение двух разных звуков

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()
 
    'Функция остановки звуков
    Function funcStop()
 
        'Остановка файла
        wmp1.controls.stop()
        wmp2.controls.stop()
 
        'Закрытие файла
        wmp1.close()
        wmp2.close()
 
        Return Nothing
    End Function
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Проигрывание файла первого
        wmp1.currentMedia = wmp1.newMedia(pathHome & "Первый файл.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 & "Второй файл.mp3")
        wmp2.controls.play()
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        'Остановка звуков всех
        funcStop()
    End Sub
End Class