Fondo del formulario

Aqui esta la solucion. Pruebala
Option Explicit
Dim cont, i As Long
'Por JarpSoft
Private Sub Form_Load()
'Configurar temporizador
Timer1.Interval = 5
Timer1.Enabled = True
'Inicializar variables
cont = 1
i = 0
'Inicializar valores del formulario
Me.DrawStyle = vbInsideSolid
Me.DrawMode = vbCopyPen
Me.ScaleMode = vbPixels
Me.DrawWidth = 8
Me.ScaleHeight = 255
Me.Height = 7000
Me.Width = 9000
End Sub
Private Sub Timer1_Timer()
'Proceso del degradado
If cont <= Me.Height Then
Timer1.Enabled = False
Me.Line (0, cont)-(Screen.Width, cont - 1), RGB(0, 0, 255 - i), B
cont = cont + 1
If (cont Mod 2 = 0) And (i < 255) Then
i = i + 1
End If
Timer1.Enabled = True
End If
End Sub