سلام
کدهای خط 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