[AC-2007] Visualiser Pochette, WindowsMediaPlayer Controle, Code VBA, Access

[betcol]

Merci à SilyRoad pour le très bon article sur l'utilisation du Windows Media Player en VBA.
Je n'arrive pas à garder l'image fixe de la pochette dans le controle Access pour le WMP, tout au long de l'écoute de la playList:
Extrait de mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim J As Byte
Dim Fichier As String
Dim MyPlayer As WindowsMediaPlayer
Dim Xwmp As IWMPMedia                   'Playlist
Set MyPlayer = Me.MyPlayer.Object
MyPlayer.currentPlaylist.Clear          'Nettoye la Playlist précédente
Fichier = Dir(Chemin & "*.wma")        'Chargement de tous les items dans la Playlist: J = 0
        Do While Fichier <> ""
        Set Xwmp = MyPlayer.newMedia(Chemin & Fichier)
        MyPlayer.currentPlaylist.insertItem J, Xwmp
        J = J + 1: Fichier = Dir
    Loop
DoEvents
End Sub

Question: Ou dois-je insérer le code pour la pochette: Chemin & "Folder.jpg"
Merci à celui ou celle qui pourra me dépanner.