Le problème fondamental est ici :
GdiSurface = Me.CreateGraphics
CreateGraphics () dans ce contexte crée une surface de schéma qui est PROVISOIRE. Quand la forme se régénère que le schéma sera simplement effacé… et c'est probable à la charge de forme ().
Pour un schéma PERSISTANT vous avez besoin de l'un ou l'autre :
(1) emploient « e.Graphics » fourni dans l'événement de peinture () de la forme.
(2) dessinent à une carte binaire () et l'ont placée comme fond de la forme.