by VisualScope (20 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 29th May 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Opens up a dialog box and plays them using MediaPlayer!!!!!
Private Sub command1_Click()
cd.DialogTitle = "Open Mp3 File"
cd.Filter = "MP3 Files|*.MP3"
cd.InitDir = "C:\Windows\Desktop\"
cd.ShowOpen
MediaPlayer1.Open cd.FileName
End Sub