Jobs
Author: ALex Date Submitted: 2/2/2007 Category: Music/Sounds Compatibility: VB 6 This code has been accessed 14639 times.
Email Yourself this snippet:
'none
Code
Private Sub Form_Load mmcMP3.DeviceType = "MPEGVideo" mmcMP3.Filename = "C:\Myaudio.Mp3" mmcMP3.Command = "Open" mmcMP3.Command = "Play" End Sub Private Sub Form_Unload mmcMP3.Command = "Stop" mmcMP3.Command = "Close" End Sub
