Как сделать функцию плавного изменения цвета у Label

    Dim C, B As Integer
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        B += C
        Label1.ForeColor = Color.FromArgb(255 - B, 0, B)
        If B = 255 Or B = 0 Then C = -C
        Application.DoEvents()
        System.Threading.Thread.Sleep(2)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        C = 5
    End Sub

Dim WithEvents tmr As New Timer
    Dim r, g, b As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        r = 0
        g = 0
        b = 0
        Me.Label1.BackColor = Color.FromArgb(r, g, b)
        tmr.Interval = 1
        tmr.Start()
    End Sub
 
    Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmr.Tick
        If Me.r < 255 Then
            r = r + 1
            GoTo 1
        End If
        If Me.g < 255 Then
            g = g + 1
            GoTo 1
        End If
        If Me.b < 255 Then
            b = b + 1
            GoTo 1
        End If
1:      Me.Label1.BackColor = Color.FromArgb(r, g, b)
    End Sub