To jest cały kod programu:
Public Class Form1
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
For Each track As String In OpenFileDialog1.FileNames
ListBox1.Items.Add(track)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
End Sub
Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
AxWindowsMediaPlayer1.settings.balance = TrackBar2.Value
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Value = AxWindowsMediaPlayer1.settings.volume
TrackBar2.Value = AxWindowsMediaPlayer1.settings.balance
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Refresh()
End Sub
Private Sub MikserGłośnościToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MikserGłośnościToolStripMenuItem.Click
System.Diagnostics.Process.Start("C:\Windows\System32\SndVol.exe")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If AxWindowsMediaPlayer1.settings.mute = True Then
AxWindowsMediaPlayer1.settings.mute = False
Else
AxWindowsMediaPlayer1.settings.mute = True
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
End Sub
End Class