Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If x >= 256 Then x = 255 : Timer1.Interval = 10 : xTag = True
If x <= -1 Then x = 0 : Timer1.Interval = 10 : xTag = False
Me.Label1.ForeColor = Color.FromArgb(x, 255, 0, 255)
If xTag = False Then x += 1
If xTag = True Then x -= 1
If x >= 256 Then Timer1.Interval = 3000
If x <= -1 Then Timer1.Interval = 3000
End Sub