نحوه استفاده از فایل صوتی دو کاناله با اصوات متفاوت

توی این ویدئو یک کامپوننت داریم که قادر هست صوت دو کاناله با اصوات متفاوت رو بگیره و صدای کانال صوتی Left/Right دلخواه ما رو پخش کنه. Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button4.Click With AxMSVidCtl1 .Run() .Refresh() End With ChangeSoundLevel() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click With AxMSVidCtl1 .Pause() .Update() .Refresh() End With End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click With AxMSVidCtl1 .Stop() .Update() .Refresh() End With End Sub Sub ChangeSoundLevel() With AxMSVidCtl1 Try .AudioRendererActive.Volume = 0 If .CtlState = MSVidCtlLib.MSVidCtlStateList.STATE_PLAY Then If (CheckBox1.Checked = True And CheckBox2.Checked = True) Then .AudioRendererActive.Balance = 0 ElseIf (CheckBox1.Checked = True And CheckBox2.Checked = False) Then .AudioRendererActive.Balance = -6000 ElseIf (CheckBox1.Checked = False And CheckBox2.Checked = True) Then .AudioRendererActive.Balance = 6000 ElseIf (CheckBox1.Checked = False And CheckBox2.Checked = False) Then .AudioRendererActive.Balance = 0 .AudioRendererActive.Volume = -6000 End If End If Catch ex As Exception End Try End With End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged Dim Button As CheckBox = sender Button.ImageKey = If(Button.Checked, "SoundLeft", "MuteLeft") ChangeSoundLevel() End Sub Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged Dim Button As CheckBox = sender Button.ImageKey = If(Button.Checked, "SoundRight", "MuteRight") ChangeSoundLevel() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim OFD As New OpenFileDialog With {.Filter = "Media Files *.mp3;*.mkv;*.mp4|*.mp3;*.mkv;*.mp4"} If OFD.ShowDialog(Me) = DialogResult.Cancel Then Exit Sub With AxMSVidCtl1 If .CtlState = MSVidCtlLib.MSVidCtlStateList.STATE_PLAY Then .Stop() End If .DisableVideo() .View(OFD.FileName) .Update() .Refresh() End With End Sub End Class