FadePict

'Assumes:This needs a picture box called Picture1

Sub Picture1_Click ()
On Error Resume Next
Static FirstColor(3) As Double
Static SecondColor(3) As Double
Static SplitNum(3) As Double
Static DivideNum(3) As Double
Dim FadeW As Integer
Dim Loo As Integer
'Change numbers to change the color!!!!

'It's in RGB value!

'Starting color

FirstColor(1) = 255 'HScroll1.Value
FirstColor(2) = 0 'HScroll2.Value
FirstColor(3) = 0 'HScroll3.Value
'Ending color

SecondColor(1) = 0 'HScroll4.Value
SecondColor(2) = 0 'HScroll5.Value
SecondColor(3) = 255 'HScroll6.Value
SplitNum(1) = SecondColor(1) - FirstColor(1)
SplitNum(2) = SecondColor(2) - FirstColor(2)
SplitNum(3) = SecondColor(3) - FirstColor(3)
DivideNum(1) = SplitNum(1) / 100
DivideNum(2) = SplitNum(2) / 100
DivideNum(3) = SplitNum(3) / 100
FadeW = Picture1.Width / 100
For Loo = 0 To 99
Picture1.Line (Loo * FadeW - 10, -10)-(9000, 1000), _
RGB(FirstColor(1), FirstColor(2), FirstColor(3)), BF
DoEvents
FirstColor(1) = FirstColor(1) + DivideNum(1)
FirstColor(2) = FirstColor(2) + DivideNum(2)
FirstColor(3) = FirstColor(3) + DivideNum(3)
Next Loo
End Sub