PlayMidi

#If Win32 Then
Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
#ElseIf Win16 Then
Declare Function mciSendString Lib "mmsystem" (ByVal _
lpstrCommand As String, ByVal lpstrReturnStr As Any, ByVal _
wReturnLen As Integer, ByVal hCallBack As Integer) As Long
#End If
'Per suonare il file (che in questo esempio e' _

'"C:\windows\canyon.mid") si chiama la funzione nel

'seguente modo:

Dim Ret As Long
'Apro il file

Ret = mciSendString("open c:\windows\CANYON.MID type _
sequencer alias canyon", 0&, 0, 0)
'Ritorna il controllo all'applicazione dopo aver finito

'di suonare il file

Ret = mciSendString("play canyon wait", 0&, 0, 0)
'Chiudo il file e il sequencer device

Ret = mciSendString("close canyon", 0&, 0, 0)
Con VB si possono suonare i files MIDI senza bisogno di
OCX utilizzando la funzione API mciSendString.
Le sue dichiarazioni sono le seguenti: