Основная проблема здесь:
GdiSurface = Me.CreateGraphics
CreateGraphics () в этом смысле создает поверхность чертежа ВРЕМЕННО. Когда форма освежит, котор чертеж просто будет стерт… и это правоподобно на нагрузке формы ().
Для УПОРНЕЙШЕГО чертежа вам нужно то:
(1) использует «поставленное e.Graphics» в случае краски () формы.
(2) рисует к поэлементному карте () и установило его как предпосылка формы.