How to create the blue dithered setup screen

Most setup routines use the standard blue-to-black dithered screen as a background for the program. This tip demontrates how to create this type of effect quickly.

Code

Copy the following code into the form.

Sub Dither(vForm As Form)
Dim intLoop As Integer
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode = vbPixels
vForm.DrawWidth = 2
vForm.ScaleHeight = 256
For intLoop = 0 To 255
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B 
Next intLoop
End Sub

Private Sub Form_Activate()
Dither Me
End Sub

Set the AutoRedraw of the form to True.
If you want to make a Red painted form use:

vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(255 - intLoop, 0, 0), B

Run the program.

"HTTP/1.1 200 OK Date: Fri, 09 May 2008 21:09:10 GMT Server: Apache/1.3.33 (Unix) mod_perl/1.29 Connection: close Transfer-Encoding: chunked Content-Type: text/html; charset=iso-8859-1 200 OK

OK

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, webmaster@lics.com and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.