COMO UTILIZAR QBColor en VB

CODIGO:

Option Explicit

Private Sub HScroll1_Change()
    If Val(Text1.Text) < 16 And Val(HScroll1.Value) < 16 Then
        Text1.Text = HScroll1.Value
        Text3.BackColor = QBColor(HScroll1.Value)
   Else
       MsgBox "Debe ser un numero inferior a 16 para que el cacharro funciones"
  End If
End Sub

Private Sub HScroll1_Scroll()
     If Val(Text1.Text) < 16 And Val(HScroll1.Value) < 16 Then
         Text1.Text = HScroll1.Value
         Text3.BackColor = QBColor(HScroll1.Value)
    Else
        MsgBox "Debe ser un numero inferior a 16 para que el cacharro funciones"
    End If
End Sub

Private Sub HScroll2_Change()
     If Val(Text2.Text) < 16 And Val(HScroll2.Value) < 16 Then
         Text2.Text = HScroll2.Value
         Text3.ForeColor = QBColor(HScroll2.Value)
    Else
        MsgBox "Debe ser un numero inferior a 16 para que el cacharro funcione"
    End If
End Sub

Private Sub HScroll2_Scroll()
    If Val(Text2.Text) < 16 And Val(HScroll2.Value) < 16 Then
        Text2.Text = HScroll2.Value
        Text3.ForeColor = QBColor(HScroll2.Value)
    Else
       MsgBox "Debe ser un numero inferior a 16 para que el cacharro funcione"
   End If
End Sub

Private Sub opc_salir_Click()
     If MsgBox("¿Seguro que quieres abandonar el programa?", vbYesNo, "Información del Sistema") = vbYes Then
        End
     End If
End Sub