try this code:
Code:
For x = 1 To Screen.Height
colorint = 255 / Screen.Height
Form1.ForeColor = RGB(0, 0, 255 - colorint * x)
Form1.Line (0, x)-(Screen.Width, x)
Next x
This works if the window is maximized and creates a blue-black window just like setup just make sure to set form1.autoredraw to true.


------------------
DiGiTaIErRoR
VB, QBasic, Iptscrae, HTML
Quote: There are no stupid questions, just stupid people.