Вывести код цвета - VB

Формулировка задачи:

У меня программа со skrollbar-ами когда вигаешь ползунок меняется цвет лэйбочки и цвет текста в текстбоксе. Еще поидее оно должно вывадить код цвета лэйбочки в этот текстбокс. Все это работает отлично кроме вывода кода цвета. У меня выдает ошибки я приложил скрины. Попрошу вас помочь это исправить. Вот мой код

Option Explicit
 
Private Sub Form_Load()
    Dim i As Integer
    
    For i = 0 To 2
        VScroll1_Change i
    Next i
    
End Sub
Private Sub VScroll1_Change(Belleteyn As Integer)
        Label1(Belleteyn).Caption = VScroll1(Belleteyn).Value
    Select Case Belleteyn
        Case 0
            Label2(Belleteyn).BackColor = RGB(VScroll1(Belleteyn).Value, 0, 0)
        Case 1
            Label2(Belleteyn).BackColor = RGB(0, VScroll1(Belleteyn).Value, 0)
        Case 2
            Label2(Belleteyn).BackColor = RGB(0, 0, VScroll1(Belleteyn).Value)
    End Select
        Text1.ForeColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
        Label3.BackColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
        Text1.Text = QBColor(Label3.BackColor)
End Sub
 
Private Sub VScroll1_Scroll(Belleteyn As Integer)
    VScroll1_Change Belleteyn
End Sub

Решение задачи: «Вывести код цвета»

textual
                            Листинг программы 
                        
                            Text1.Text =  Label3.BackColor