Play a MIDI file

The code below shows you how to play a MIDI sound file (with the extension mdi)

Private 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
Public Function PlayMidiFile(MidiFile As String) As Boolean
    Dim lRet As Long
    On Error Resume Next
    If Dir(MidiFile) = "" Then Exit Function
    lRet = mciSendString("stop midi", "", 0, 0)
    lRet = mciSendString("close midi", "", 0, 0)
    lRet = mciSendString("open sequencer!" & MidiFile & " alias midi", "", 0, 0)
    lRet = mciSendString("play midi", "", 0, 0)
    PlayMidiFile = (lRet = 0)
End Function