Проигрыш и закольцовка MIDI в VB 6.0

Формулировка задачи:

Здравствуйте, Подскажите, пожалуйста, как проиграть и закольцевать MIDI-файл в VB6. Directmusic не предлагать, так как его я собираюсь использовать для звуковых эффектов. Заранее спасибо.

Решение задачи: «Проигрыш и закольцовка MIDI в VB 6.0»

textual
                            Листинг программы 
                        

                            Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long 
Private Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long 
Private Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
                        