Hi.

I have a project which I'm working on, and I would like the label to fade through colours for a certain amount of time, until the main form shows. I'm using this code but it's not working (no fade effect).


Code:
Public Class Welcome

    Dim Red As Integer = 0
    Dim Green As Integer = 0
    Dim Blue As Integer = 0
    Dim CountUp As Boolean = True

    Private Sub Welcome_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If CountUp = True Then

            If Red < 253 Then
                Red = Red + 1
            Else
                CountUp = False
            End If

        End If

        If CountUp = False Then

            If Red > 0 Then
                Red = Red - 1
            Else
                CountUp = True
            End If

        End If

        Label1.ForeColor = Color.FromArgb(Red, Blue, Green)
    End Sub
End Class
What am I doing wrong here?