Fading backcolor

Make the backcolor property of a form acts like a VB-Setup Program

Original Author: Henrik Jacob Udsen

Code

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 86 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.