Code box #1

Public currentStartRed, currentStartGreen, currentStartBlue As Integer
Public currentStopRed, currentStopGreen, currentStopBlue As Integer
Public colorChangeStep As Integer
Public screenBackground As Integer

Sub FormDraw()
If screenBackground = 2 And ScaleHeight <> 0 Then
ScaleMode = vbPixels
DrawStyle = 5
DrawWidth = 1
For I = 0 To ScaleHeight Step colorChangeStep
Line (-1, I - 1)-(ScaleWidth, I + colorChangeStep), RGB((I * (currentStopRed - currentStartRed) \ ScaleHeight) + currentStartRed, (I * (currentStopGreen - currentStartGreen) \ ScaleHeight) + currentStartGreen, (I * (currentStopBlue - currentStartBlue) \ ScaleHeight) + currentStartBlue), BF
Next I
End If
End Sub

Private Sub Form_Load()
currentStartRed = 228
currentStopBlue = 128
colorChangeStep = 5
screenBackground = 2
End Sub

Private Sub Form_Resize()
FormDraw
End Sub

Private Sub Form_Paint()
FormDraw
End Sub

Private Sub cmdQuit_Click()
Unload Me
End
End Sub

Private Sub mnuAbout_Click()
Form2.Show 1
End Sub

Private Sub mnuPicture_Click(Index As Integer)
mnuPicture(screenBackground).Checked = False
screenBackground = Index
mnuPicture(screenBackground).Checked = True
Select Case Index
Case 0
Form1.Picture = Picture1.Picture
Case 1
Form1.Picture = Picture2.Picture
Case 2
FormDraw
Case 3
Form1.Picture = LoadPicture()
End Select
End Sub

Code box #2

Private Sub cmdOk_Click()
Unload Me
End Sub