Проигрыватель на visual basic

На форме размести компонент Microsoft Multimedia Control 6.0
И присвой ему имя MMControlCDPlayer.
Затем, элемент управленияMicrosoft Common Dialog Control 6.0, присвойте ему имя cdPlayer И кнопку "открыть". Назови эту кнопку cbFindFile
Код:

Private Sub Form_Load()
MMControlCDPlayer.Notify=False
MMControlCDPlayer.Wait=True
MMControlCDPlayer.Shareable=False
MMControl.CDPlayer.DeviceType="WaveAudio"
MMControlCDPlayer.DeviceType="AVIVideo"
End Sub

Private Sub cbFindFile_Click()
cdPlayer.ShowOpen
MMControlCDPlayer.FileName=cdPlayer.FileName
MMControlCDPlayer.Command="Open"
MMControlCDPlayer.hWndDisplay=PicView.hWnd
FormPlayer.picView.SetFocus
End Sub

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

После компиляции нажми открыть, выбери файл и нажми кнопку проиграть.

Команды управления элемента MMControl:
Open - открывает файл (устройство) для работы
Close - закрывает файл (устройство) для работы
Prev - Переходит в начало предыдущего трека. Если первый трек, или файл, то переход осуществляется в начало этого трека, файла.
Next - Переходит в нач. след. трека.
Step - Переходит на кадр назад по треку
Back - Переходит назад
Pause - Приостанавливает проигрывание
Play - Проигрывает
Record - Записывает (Внимание любителям подслушивать!)
Stop - Останавливает
Eject - Извлекает носитель (диск)
Save - Сохраняет
Seek - Находит позицию
P.S. Если у тебя нет компонента Microsoft Multimedia Control то я тебе скину, только укажи путь где наход. компоненты.
Best regards van. mailto: vb@gmail.ru