by Someone (1 Submission)
Category: Graphics
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Mon 30th July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
The "popular" setup background colors
'Here we create a typical blue to black background
'Make Sure AutoRedraw is set to true, so the content won't disapear
Form1.AutoRedraw=True
'Calculates for how many it has to decrease the color value by each step
StepSize=255/Form1.height 'When the for loop will reach the end 255 will be decreased from the Blue value
'Draws Lines with diferent colors with the decreasing blue value
For I = 0 to Form1.height
Form1.Line (-1,I)-(form1.width+1,I),RGB(0,0,255-I*StepSize) 'Draw the line
Next I
End Sub