Çözüldü ...

[MOZCELİK53]

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Label1.ForeColor = vbRed
ActiveSheet.Label2.ForeColor = vbWhite
ActiveSheet.Label3.ForeColor = vbWhite
ActiveSheet.Label4.ForeColor = vbWhite
ActiveSheet.Label5.ForeColor = vbWhite
End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Label1.ForeColor = vbWhite
ActiveSheet.Label2.ForeColor = vbRed
ActiveSheet.Label3.ForeColor = vbWhite
ActiveSheet.Label4.ForeColor = vbWhite
ActiveSheet.Label5.ForeColor = vbWhite

End Sub
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Label1.ForeColor = vbWhite
ActiveSheet.Label2.ForeColor = vbWhite
ActiveSheet.Label3.ForeColor = vbRed
ActiveSheet.Label4.ForeColor = vbWhite
ActiveSheet.Label5.ForeColor = vbWhite
End Sub
Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Label1.ForeColor = vbWhite
ActiveSheet.Label2.ForeColor = vbWhite
ActiveSheet.Label3.ForeColor = vbWhite
ActiveSheet.Label4.ForeColor = vbRed
ActiveSheet.Label5.ForeColor = vbWhite
End Sub
Private Sub Label5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Label1.ForeColor = vbWhite
ActiveSheet.Label2.ForeColor = vbWhite
ActiveSheet.Label3.ForeColor = vbWhite
ActiveSheet.Label4.ForeColor = vbWhite
ActiveSheet.Label5.ForeColor = vbRed
End Sub