Make the backcolor property of a form acts like a VB-Setup Program
Original Author: Henrik Jacob Udsen
Code
Option Explicit
Private Sub Form_Paint()
Dim lngY As Long
Dim lngScaleHeight As Long
Dim lngScaleWidth As Long
Dim WhatColor As String
ScaleMode = vbPixels
lngScaleHeight = ScaleHeight
lngScaleWidth = ScaleWidth
DrawStyle = vbInvisible
FillStyle = vbFSSolid
For lngY = 0 To lngScaleHeight
FillColor = RGB(0, 0, 255 - (lngY * 255) lngScaleHeight)
Line (-1, lngY - 1)-(lngScaleWidth, lngY + 1), , B
Next lngY
End Sub