سلام
کدهای خط 93 الی 97 رو به این شکل تغییر بده
For i = 0 To NumberOfItems - 1
G1.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
G1.FillEllipse(Brushes.DeepSkyBlue, ItemX(i), CInt((AreaHeight - ItemLength) / 2), ItemLength, ItemLength)
G1.DrawEllipse(Pens.DeepSkyBlue, ItemX(i), CInt((AreaHeight - ItemLength) / 2), ItemLength, ItemLength)
ItemX(i) += dx2
Next