• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Color Fade

Color Fade

Color Fade

Rate Color Fade

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

   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