Drawing circle??

[vb6-lover]

I want to draw a circle on a Form in a step up way...it start smll and then expand graudally until it reach a certain size...

[opus]

for i=startsize to endsize
   Form1.Circle (XPosition+i,YPosition+i),i, vbred
   'add something to slow down
next i

That code will print a circle on Form1 , Posion of the centre is XPosition,YPosition, Color is red. The radius will increase from
startsize to endsize.
You have to add something to slow down the for .. next loop