afficher/masquer image quand souris sur bouton

bonjour Xld forum!

j'aimerais qu'une image s'affiche quand ma souris passe sur un command button puis qu'elle disparaisse quand la souris n'est plus au dessus...

Mais l'image reste définitivementt après mon passage sur le bouton.
Quelqu'un peut il me donner le code?
voici ou j'en suis:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes('picture 7').Visible = True
End Sub

Merci!