Filled circle with exact pixel count

[cyborg]

heres the new 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...