Windows média player

Bonjour,

je veux faire sonner un carillon d'autant de coups que l'heure indique.
mais, je ne réussi pas à attendre la fin de la sonnerie pour pouvoir lancer la suivante.

Si je mets une boucle d'attente, c'est le prog qui boucle complètement

j'ai fait plusieurs essais, voir si dessous.

Merci de vos idées.

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To Left$(heure, 2) sonnerie ("unecloche.mid") attente: If WindowsMediaPlayer1.playState <> 1 Then GoTo attente 'For j = 1 To 1000000000: Next j ' If (WindowsMediaPlayer1.Status <> "Arrêté") Then GoTo attente   Next i

---

Bonjour,
Utilises les évènements de WMP.