Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _
lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
ВОзведение midi
Как чесез api можно возвести MIDI
а можно и так.
Спасибо вам это то что и надо было мне:D
задавай вопросы. всегда рад буду ответить.