Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.ReadOnly = True

End Sub

Private Sub AxWindowsMediaPlayer1_Enter(sender As Object, e As EventArgs)

End Sub

Private Sub cmdimport_Click(sender As Object, e As EventArgs) Handles cmdimport.Click

OpenFileDialog1.Filter = "MP3|*.mp3"
OpenFileDialog1.Title = "OPEn File"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = OpenFileDialog1.FileName

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
MsgBox("MP3 Player is Currently Closed")
Form2.Show()

End Sub
End Class

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.

2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Download