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 midiOutClose Lib "winmm.dll" _
   (ByVal hMidiOut As Long) As Long
Private Declare Function midiOutShortMsg Lib "winmm.dll" _
   (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
Private Declare Function midiOutSetVolume Lib "winmm.dll" _
   (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

    Dim hMidiOut As Long
    Dim Note As Long
    Dim Swar As String
    Dim T As Single
    Dim i As Byte
Private Sub PlayNote()
On Error Resume Next
If NoSound = True Then Exit Sub
   'Вычисляем числовые коффициенты на каждый голос
   'hi = Velocity * 256 * 256 'числовой параметр, где Velocity = 127 это громкость
If CheckVox1.Value = True Then _
    dx = (Vox1.Value * 256) + 8323264 'число 1-й голос = (Vox * 256) + 192 + hi, где Vox это номер инструмента библиотеки MIDI
If CheckVox2.Value = True Then _
    dy = (Vox2.Value * 256) + 8323264 'число 2-й голос
If CheckVox3.Value = True Then _
    dz = (Vox3.Value * 256) + 8323264 'число 3-й голос
    midiOutClose hMidiOut
    midiOutOpen hMidiOut, 0, 0, 0, 0
    midiOutShortMsg hMidiOut, dx 'запускаем 1-й голос
    midiOutShortMsg hMidiOut, Note  'запускаем ноту
    midiOutShortMsg hMidiOut, dy 'запускаем 2-й голос
    midiOutShortMsg hMidiOut, Note  'запускаем ноту
    midiOutShortMsg hMidiOut, dz 'запускаем 3-й голос
    midiOutShortMsg hMidiOut, Note  'запускаем ноту
    T = Timer
    Do:  DoEvents: Loop Until Timer > T + Time.Value
    midiOutClose hMidiOut
End Sub