Charting avec Zoom & Scroll

Bonjour,
Voici un programme simple qui dessine une courbe (parabole dans l'exemple) sur un graphe.
Si le graphe est en mode "Free Floating" il suffit de cliquer gauche sur le ChartArea pour déplacer la courbe. Par ailleurs j'ai aussi codé un scroll dans les zones des axes.
Si le graphe est aussi en mode "Zoomable", il est alors possible de zoomer sur un clique droit, de la même façon, soit sur le graphe, soit sur les axes.
Je m'étais d'abord inspiré d'un message ici présentant une classe ChartZP avant de me rendre compte que je n'en avais pas vraiment besoin.

Je ne suis toutefois pas un programmeur de haut niveau et donc je suis preneur de toute amélioration soit fonctionnelle, soit pour éliminer le 'flickering' résiduel.
Sinon, j'espère que cela sera au moins utile à d'autres VBistes matheux :-)
D'avance merci
Bruno