FadeForm

Sub FadeFrm(frm, Style)
frm.ScaleMode = vbPixels
frm.AutoRedraw = True
frm.DrawStyle = vbInsideSolid
frm.Cls
frm.DrawWidth = 2
frm.DrawMode = 13
frm.ScaleHeight = 256
For i = 0 To 255
frm.Line (0, i)-(frm.ScaleWidth, i - 1), RGB(i, i, i), BF
Next i
End Sub

Private Sub Form_Load()
FadeFrm Me, Combo1
End Sub