Option Explicit
Private Const SND_ASYNC        As Long = &H1
Private Const SND_NODEFAULT    As Long = &H2
Private CurrentSong            As String
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
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                                                                             ByVal uFlags As Long) As Long
Public Sub MakeMidiLoop()
Dim SBuffer As String * 256
    mciSendString "STATUS background MODE", SBuffer, 256, 0
    If Left$(SBuffer, 7) = "stopped" Then
        mciSendString "PLAY background FROM 0", vbNullString, 0, 0
    End If
End Sub
Public Sub PlayMidi(Song As String)
    If ReadINI("CONFIG", "Music", App.Path & "\config.dcf") = 1 Then
        If CurrentSong <> Song Then
            CurrentSong = Song
            mciSendString "close all", 0, 0, 0
            mciSendString "open """ & App.Path & "\music\" & Song & """ type sequencer alias background", 0, 0, 0
            mciSendString "play background notify", 0, 0, frmGame.hwnd
        End If
    Else
        StopMidi
    End If
End Sub

mciSendString "open """ & App.Path & "\music\" & Song & """ type sequencer alias background", 0, 0, 0

mciSendString "open """ & App.Path & "\" & Song & """ type sequencer alias background", 0, 0, 0

mciSendString "open """ & App.Path & "\Data\Music\" & Song & """ type sequencer alias background", 0, 0, 0

mciSendString "open """ & App.Path & "\music\" & Song & """ type sequencer alias background", 0, 0, 0

mciSendString "open """ & App.Path & "\music" & Song & """ type sequencer alias background", 0, 0, 0