รบกวนขอคำแนะนำในการเขียนโค้ด vb ให้สามารถเล่นไฟล์ vedio กับ sound ให้เล่นได้พร้อมกันครับ

Public Class Form1
    Private _file As String = ""
    Private _player1 As Process
    Private _player2 As Process

    Private Sub BtnChooseVideo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChooseVideo.Click
        Dim filter As String = ""
        If (RdoVideo.Checked) Then
            filter = "Video File (*.avi,*.mpg,*.wmv)|*.avi;*.mpg;*.wmv"
        ElseIf (RdoAudio.Checked) Then
            filter = "Audio File (*.wav,*.mp3)|*.wav;*.mp3"
        ElseIf (RdoVideoAudio.Checked) Then
            filter = "VideoAudio File (*.avi,*.mpg,*.wmv,*.wav,*.mp3)|*.avi;*.mpg;*.wmv;*.wav;*.mp3"

        End If
        With OpenFileDialog1
            .Filter = filter

            If (.ShowDialog() = DialogResult.OK) Then
                TextBox1.Text = .FileName
            End If
        End With
    End Sub

    Private Sub BtnChooseAudio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChooseAudio.Click
        Dim filter As String = ""
        If (RdoVideo.Checked) Then
            filter = "Video File (*.avi,*.mpg,*.wmv)|*.avi;*.mpg;*.wmv"
        ElseIf (RdoAudio.Checked) Then
            filter = "Audio File (*.wav,*.mp3)|*.wav;*.mp3"
        ElseIf (RdoVideoAudio.Checked) Then
            filter = "VideoAudio File (*.avi,*.mpg,*.wmv,*.wav,*.mp3)|*.avi;*.mpg;*.wmv;*.wav;*.mp3"

        End If
        With OpenFileDialog2
            .Filter = filter

            If (.ShowDialog() = DialogResult.OK) Then
                TextBox2.Text = .FileName
            End If
        End With
    End Sub

    Private Sub BtnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPlay.Click
        _player1 = Process.Start(TextBox1.Text)



    End Sub

    
    Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
        _player1.Kill()


    End Sub

    Private Sub BtnPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPause.Click

    End Sub
End Class