Want red rectangles:

[ns]

I want red rectangles but am getting white ones:

 Form1.FillStyle = vbFSSolid
    Form1.FillColor = vbRed


    For i = 0 To 100
                  RetVal = Rectangle(GetWindowDC(GetActiveWindow), 20 + 10 * i, 40, 30 + 10 * i, 50)

             Next

Help! Thanks, ns

[Nick Parker]

Try using something like this, I believe it will go one pixel at a time.

Declare Function FloodFill Lib "gdi32" Alias "FloodFill" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

FloodFill Me.hdc, x, y, vbRed

Nick Parker
**So like children pointers should be left to grown ups. - Norm Alomond

---

**