Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim I As Long, RS As String, cb As Long RS = Space$(128) I = mciSendString("stop midi", RS, 128, cb) I = mciSendString("close midi", RS, 128, cb)
RS = Space$(128)
I = mciSendString("stop midi", RS, 128, cb)
I = mciSendString("close midi", RS, 128, cb)