Image module ne s'affiche pas

bonjour,

voila j'ai un petit bug sur un projet

la combobox et listbox ainsi que les images fonctionnent bien,

si je demande par un clic sur image a agrandir celle ci s’agrandit et je reclic dessus pour fermer.

le problème est que lorsque je revient sur l'userform l'image ne bouge plus en fonction de la valeur de la combo ou listbox et seulement si avant j'ai fait un agrandissement

je vous joint un fichier avec des images

merci d'avance pour l'aide

desolé j'ai pas enlever le mdp

le voici sans

pour ce qui cela interesse

voila la solution donné dans un autre forum et qui fonctionne

remplacer

Else
    Image4.Picture = LoadPicture(chemin & "\" & combo & ".jpg")
End If

par

Else
    Image4.Picture = LoadPicture(chemin & "\" & combo & ".jpg")
    Image4.Visible = False
    Image4.Visible = True
End If

et faire la meme chose pour listbox