Fondo en degradé


Con esta sencilla rutina es posible hacer un fondo para formulario idéntico al de los programas de instalación, (Color degradado).

En el evento Resize colocar :

Private Sub Form_Resize()

Dim i As Integer
Dim Y As Integer

With Form1
    .Cls
    .AutoRedraw = True
    .DrawStyle = 6
    .DrawMode = 13
    .DrawWidth = 2
    .ScaleMode = 3
    .ScaleHeight = 512
    End With

Y = 0
For i = 0 To 255

Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 0, i), BF
Y = Y + 2

Next i

End Sub