Asignación de programación de VB, use barras de desplazamiento para controlar los colores de primer plano y fondo de los cuadros de texto, complete el código

Dim?a?As?Integer

Privado?Sub?Command1_Click() a?=?1

Fin?Sub

¿Privado?Sub?Command2_Click()

a?=?2

Fin?Sub

Privado?Sub?Form_Load()

HScroll1.Max?=?255

HScroll2.Max?=?255

HScroll3.Max?=?255

HScroll1.LargeChange?=?10

HScroll2.LargeChange?=?10

HScroll3.LargeChange?=?10

HScroll1.SmallChange?=?1

HScroll2. SmallChange?=?1

HScroll3.SmallChange?=?1

a?=?1

Fin?Sub

¿Privado? Sub?HScroll1_Change()

Si?a?=?1?Entonces Text1.ForeColor?=?RGB(HScroll1.Value,?HScroll2.Value,?HScroll3.Value)

Else Text1.BackColor?=?RGB(HScroll1.Value,?HScroll2.Value,?HScroll3.Value)

Fin?If

Etiqueta1.Caption?=?HScroll1.Value

Label2.Caption?=?HScroll2.Value

Label3.Caption?=?HScroll3.Value

Fin?Sub

¿Privado? Sub?HScroll2_Change() HScroll1_Change

Fin?Sub

¿Privado?Sub?HScroll3_Change()

HScroll1_Change

Fin?Sub