' =- Ferramentas VB
'    http://www.geocities.com/SiliconValley/Sector/1496/
'
' Desenha um degrade tipico dos programas de instalacao
' na Form
'

Sub Degrade()

	Dim i as Integer
	Dim y as Integer

	Me.AutoRedraw = True
	Me.DrawStyle = 6
	Me.DrawMode = 13
	Me.DrawWidth = 2
	Me.ScaleMode = 3
	Me.ScaleHeight = (256 * 2)

	For i = 255 To 0 Step -1
		Me.Line (0, y)-(Me.Width, y + 2), RGB(0, 0, i), BF
		y = y + 2
	Next i

End Sub