Как проигрывать музу(MS Multimedia Control 6.0) ?

[Чингис]

Почему не играет ?
хочу музу воспроизвести, с помощью MS Multimedia Control 6.0 из компакт-диска
пишу типа того:

Private Sub Form_Load()
pl.DeviceType = "CDAudio"
pl.Command = "Open"
pl.Command = "Play"
End Sub

естественно вставляю MS Multimedia Control 6.0 в форму но ничего не получается.Кроме формы и
MS Multimedia Control 6.0 у меня ничего нет.
И вообще не проигрываются mp3 и в самом компе, только wav проигрываются
пишу типа того:

Private Sub Form_Load()
Плеер.DeviceType = "WaveAudio"
Плеер.FileName = "c:\muz.mp3"
Плеер.Command = "Open"
Плеер.Command = "play"
End Sub


В чем дело?
только отвечайте как для чайника
заранее спасибо

[Sanya Z]

Может быть дело в событии Form_Load? Попробуй тот же код, но при другом событии, скажем Command1_Click

[vladimirr]

Брат, тут нужно вот что:
Private Sub Form_Load()
MMI.Notify = False
MMI.Wait = True
MMI.Shareable = False
MMI.DeviceType = "CDAudio"
MMI.Command = "Open"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMI.Command = "Stop"
MMI.Command = "Close"
End Sub

Проигрывает диски. У меня валяется пример, как создать полноценный проигрыватель, если интересно, напиши на vovanputin@mail.ru, а то здесь ругаются за длинное