For x = dis.rcItem.Left To dis.rcItem.Left + 25
        rc = 255 - Round(x / 26 * (257 - 212))
        gc = 255 - Round(x / 26 * (257 - 208))
        bc = 255 - Round(x / 26 * (257 - 200))
        c = rc + gc * 256 + bc * 256 ^ 2
        For y = dis.rcItem.Top To dis.rcItem.Bottom
          SetPixel dis.hdc, x, y, c
        Next
      Next

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...