مشکل در رسم دایره ها

[IamOverlord]

سلام دوستان!
من وقتی دایره های تو در تو رسم می کنم مشکل این برنامه ای که گذاشتم پیش می یاد، اما تو برنامه های مشابهی برای این کار این مشکل پیش نمی آید(مثلا Photoshop). چی کار کنم؟

لطفا دانلود کنید تا مشکلم رو متوجه بشید:

[IamOverlord]

سلام دوستان!
مشکلم حل شد!
فقط سرعت کدی که نوشتم(DrawCircle) خیلی پایینه. چی کار کنم؟

Sub DrawCircle(PictureBox As PictureBox, X As Variant, Y As Variant, R As Variant)

For j = Y - R To Y + R

For i = X - R To X + R

If CInt(Sqr((X - i) ^ 2 + (Y - j) ^ 2)) = R Then

Picture1.PSet (i, j)

End If

Next i

Next j

End Sub





Private Sub Command1_Click()

DrawCircle Picture1, 1000, 1000, 500

End Sub

لطفا راهمایی کنید