Simplification de code

Bonjour à tout le forum,

voici mon problème:

Sur un userform, j'ai un Frame qui contient trois labels.
Mon code permet que à chaque fois que la souris passe sur un label celui-ci affiche sa bordure et à chaque fois que la souris passe sur le frame , la bordure de tous les labels s'efface. Cela fonctionne bien. Mon code est le suivant:

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For Each Control In Frame1.Controls
Control.BorderStyle = 0
Next Control
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.BorderStyle = 1
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label2.BorderStyle = 1
End Sub
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label3.BorderStyle = 1
End Sub

Cependant j'aimerais pouvoir simplifier mon code et éviter de répéter: Sub label1_MouseMove,Sub label2_MouseMove,Sub label3_MouseMove.

Donc comment dire:
Pour chaque control du frame1, si il y a un "MouveMove" dessus alors borderstyle de ce control = 1.

Merci d'avance pour votre aide

Cordialement

Zeltron