----------------------------------- Thuged_Out_G Tue Mar 16, 2004 2:12 am PLaying a CD ----------------------------------- playing a cd in Visual basic is actually quite easy :D first off, you'll need to start by going to the project menu, and selecting the components option. find and select Microsoft MultiMedia Control 6.0 and then you will have it on the toolbar to your left. you then add that component to the form, and for this tutorial, we will set its visible property to "false", which will enable us to use our own buttons. now for the form_load() procedure. it should look something like this Private Sub Form_Load() MMControl1.Notify = False MMControl1.Wait = True MMControl1.Shareable = False MMControl1.DeviceType = "CDAudio" MMControl1.Command = "Open" End Sub when the notify property is set to true, it generates a Done event after the next command is concluded. The wait property decides if the MultiMedia control will wait for the next command to finish before giving control back to the program(True=will wait, false=will not wait) the Shareable property determines the restriction status of media devices by other procedures or programs. The DeviceType property is used to specify the type of MCI device(CDAudio for example) the command="open" property opens the Cd(not actually open) other commands that can be used with the command property are, play, open, close, pause, seek, stop, back, step, prev, next, record, eject, sound,save, track. now, a most basic player(included here) will have a play button, stop, pause, next, and prev. so you will either need to make a button, or include a picture for each button(method described here) so for your play button, it would simply be this Private Sub PlayPic_Click() MMControl1.Command = "Play" End Sub the rest is pretty much self-explanatory ...for your stop button Private Sub StopPic_Click() MMControl1.Command = "Stop" End Sub now for the form unload procedure Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = "Stop" 'stops any music playing MMControl1.Command = "Close" 'closes the cd End Sub there is also the track command, which you can use to figure out the current track number playing...like this Text1.Text=MMControl1.Command="Track" that will put the track number in the text box Text1(must first be created) now, the full code for a simple media player(INCLUDE YOUR OWN IMAGES) Private Sub Form_Load() MMControl1.Notify = False MMControl1.Wait = True MMControl1.Shareable = False MMControl1.DeviceType = "CDAudio" MMControl1.Command = "Open" End Sub Private Sub Image1_Click() MMControl1.Command = "Next" End Sub Private Sub Image2_Click() MMControl1.Command = "Pause" End Sub Private Sub Image3_Click() MMControl1.Command = "Play" End Sub Private Sub Image4_Click() MMControl1.Command = "Prev" End Sub Private Sub Image5_Click() MMControl1.Command = "Stop" End Sub Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = "Close" MMControl1.Command = "Stop" End Sub thats everything you need for a simple Cd player