Color Fade

by ALex (11 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2^nd February 2007
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Color Fade

Rate Color 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
   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

Download this snippet Add to My Saved Code

Color Fade Comments

No comments have been posted about Color Fade. Why not be the first to post a comment about Color Fade.

Color Fade

Color Fade Comments

Post your comment

Difficulty