This code shows you how to fade the form from black to light blue, but can be customised to any colour by using the RGB settings
'\\\\\\\\
Sub ColourFade(vForm As Form) 'Put this code into the form you wish to fade
Dim intLoop As Integer
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode = vbPixels
vForm.DrawWidth = 2
vForm.ScaleHeight = 256
For intLoop = 0 To 255
'ATTENTION: This line you should change to a colour you want, RGB(0,500,255 - intLoop) makes the colour change from a florescent green to a vile turquiose!
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0, 255 - intLoop), B
Next intLoop
End Sub
Private Sub Form_Activate()
ColourFade Me
End Sub
'////////
Comments