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

[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

لطفا راهمایی کنید:چشمک: