播放MIDI音乐(vb6.0代码编写)直接加载音乐文件，mciExecute "open " & App.Path & "\TEST.MID alias MIDI type sequencer"，有停止，有播放等功能。