FAIRE JOUER ET ARRÊTER UN MIDI DANS UN PROGRAMME

Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long 
'À déclarer au début du code

Public Sub JouerMus(ByVal Fichier As String) 'Sub qi permet de faire jouer la musique
    mciExecute("play " & Fichier)
  End Sub

  Private Sub ArreteMus(ByVal Fichier As String) 'Sub qui permet de l'arrêter
    mciExecute("stop " & Fichier)
  End Sub

Private Sub chkMusic_CheckedChanged(ByVal sender As Object, _ 'Sub du chkbox
                                      ByVal e As System.EventArgs) _
                                      Handles chkMusic.CheckedChanged
    If chkMusic.Checked = True Then            'si le checkbox est coché, la musique va démarrer
      JouerMus("lagunabattletheme.mid")
    Else                                                          'si elle est décochée, la musique arrête
      ArreteMus("lagunabattletheme.mid")
    End If
  End Sub