Recherche:

je ne suis pas expert en chart, mais
point1.Color = Darken(point1.Color, 5) m'a l'air bon

tu peux mettre un point d'arrêt pour comparer la couleur du point avant et après, si la couleur change...

fait voir le reste de ton code

ta fonction retourne une nouvelle couleur plus sombre à partir d'une couleur, si tu n'as rien écrit pour que ca agisse quelque part il ne se passera rien ...

en l'écrivant comme il faut elle a l'air de marcher


Function Darken(ByVal Col As Color, ByVal Percent As Integer) As Color
Dim R, G, B As Byte
R = Col.R
G = Col.G
...