Problème de changement de couleur avec Mousemove

Bonjour à tous,
Je cherche à faire changer de couleur mon étiquette lorsque la souris passe dessus et reprenne sa couleur initiale à la sortie de souris de la zone.

J’ai créé la procédure ci-dessous mais l’étiquette ne revient pas à sa couleur initiale lorsque la souris en est sortie.

Peut être est ce un problème de configuration générale?

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label1.BackColor = RGB(0, 0, 255)

End Sub

Bonjour,
Il aurait fallut rajouter un MouseMove sur l’userform, pour revenir à la couleur
A voir
Sergio.xlsm (20,3 Ko)

Bonjour,

Une autre méthode :

Dim survol
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If X < 6 Or X > Label1.Width - 6 Or Y < 6 Or Y > Label1.Height - 6 Then
    If survol = True Then
      survol = False
      Me.Label1.BackColor = &H8000000F
    End If
  Else
   Me.Label1.BackColor = vbRed
   survol = True
  End If
End Sub

Merci je vais essayer

Ca fonctionne super bien.

Merci

Merci pour la solution alternative mais je vais utiliser la solution plus simple de Mimimathy