Fading backcolor
Make the backcolor property of a form acts like a VB-Setup Program
Rate Fading backcolor
(18(18 Vote))
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
Fading backcolor Comments
No comments yet — be the first to post one!
Post a Comment