Boucle sur current posisition media player

[JACRAV]

Bonjour à tous.
Grace aux codes de MichelXLD, j'ai pu réaliser un media payer sur un UF qui marche super.Par contre j'aimerais bien pouvoir afficher dans un label le temps restant et le temps écoulé dans un autre avec mise à jour toutes les secondes.
En utilisant MP.currentPosition et Current media Duration j'arrive avoir les éléments en minutes secondes mais manuellement avec un CB sur le UF.
Je pense qu'il doit être possible de faire une boucle ou utiliser un timer mais je n'y arrive pas!je ne vois pas quel évennement disponible peur déclencher une boucle.Je ne peux pas envoyer de fichier car trop gros.
Voici mon code pour utiliser les données
Option Explicit
Sub POSITION()

Dim l As Long
Dim p As Long
Dim tr As Long
Dim min As Long, sec As Long, min2 As Long, sec2 As Long
With UserForm2

l = .WindowsMediaPlayer1.currentMedia.Duration 'temps total
p = .WindowsMediaPlayer1.Controls.CurrentPosition ' temps écoulé
tr = l - p 'temps restant

min = tr / 60 'définition des minutes
If min < 1 Then min = 0
sec = tr - (min * 60) 'définition des secondes
If sec < 1 Then sec = 0

.Label9.Caption = "TEMPS RESTANT: " & Format(min, "00") & ":" & Format(sec, "00") 'formatage du label

min2 = p / 60 'définition des minutes
If min2 < 1 Then min2 = 0

sec2 = p - (min2 * 60) 'définition des secondes
If sec2 < 1 Then sec2 = 0
.Label10.Caption = "TEMPS ÉCOULÉ : " & Format(min2, "00") & ":" & Format(sec2, "00") 'formatage du label

End With
End Sub

Quelqu'un peut-il m'aider?
Merci par avances et bonnes fêtes pascales à tous
Bien cordialement
Jacques