[求助]如何在vb中用midi函数（api函数midiOutShortMsg或其他方法最好有实例）实现多种乐器同时演奏

就像乐队一样可以好几种乐器同时演奏
我用这种方法Private Sub Command1_Click()
midiOutShortMsg hMidi, 0 * &H10000 + 1 * &H100 + &HC0 ‘1表示第一种乐器平台钢琴
midiOutShortMsg hMidi, &H90 + 100 * &H10000 + 60 * &H100 + 0 ’60表示弹奏音高
midiOutShortMsg hMidi, 0 * &H10000 + 27 * &H100 + &HC0 ‘27表示第二种乐器电吉他 
midiOutShortMsg hMidi, &H90 + 100 * &H10000 + 60 * &H100 + 0 ’60表示弹奏音高
midiOutShortMsg hMidi, 0 * &H10000 + 47 * &H100 + &HC0 ‘47表示第三种乐器平定音鼓
midiOutShortMsg hMidi, &H90 + 100 * &H10000 + 60 * &H100 + 0 ’60表示弹奏音高


‘然后依次类推，我见恒音电子琴（一个用vb做的电子琴软件，里面有我说的多乐器同时演奏的程序）可以8个同时演奏
’但我用这样的方法，先发送消息改变乐器然后再发送弹奏消息，循环这样，办法很笨，这样发现有好几个乐器，有时演奏，有时不演奏，无法完整的同时演奏
‘不知哪位大侠能指点迷经
End Sub