Filled circle with exact pixel count

hi!
i've got a code for drawing a circle:

VB Code:

For Angle = 0 To 360 Step 1 / 100
    SetPixelV Picture1.hdc, Round(CenterX + Cos((Angle * (3.1415926 / 180))) * Radius), Round(CenterY + Sin((Angle * (3.1415926 / 180))) * Radius), RGB(0, 255, 0)
Next Angle

but now i want to fill it using setpixelv but how?
if i do for i = 0 to radius, it draws too many or too few times at each pixel...so i have to change the step.

is there any way to know exactly how many pixels that will be used, or do i have to do this another way?

It's easy. Create a reverse of the angle (360 - Angle) and use Cos() on both of them. Then, you have the left position and right position. Set your pixels from the left to the right (I think its AngRev to Angle) and use Sin(Angle) as the Y value.

It should work.

ok! thanks!

heres the new code:

VB Code:

For X = Round(CenterX + Cos(((360 - Angle) * (3.1415926 / 180))) * Radius) To Round(CenterX + Cos((Angle * (3.1415926 / 180))) * Radius)
            For Y = Round(CenterY + Sin(((360 - Angle) * (3.1415926 / 180))) * Radius) To Round(CenterY + Sin((Angle * (3.1415926 / 180))) * Radius)
                SetPixelV Picture1.hdc, X, Y, vbRed
            Next Y
        Next X

theres only one thing wrong with this....it draws a line across each time, and that makes is draw over some pixels alredy drawn...
the main reason i wanted to do this was to take the average color of every pixel and the paint color, so the new color was half transparent...
but if it draws too many times on some pixels, so the new color is not the average...

oh!
i used the same x value for every pixel and it looked ok!

oh....i missed some things...
it was not right! :(

fixed some things!
works perfect now!
thanks for your help!