Option Explicit
Public Brojo, Bverde, Bazul As Integer
Public Frojo, Fverde, Fazul As Integer
Option Explicit - Obliga a declarar todas la variables
Public Brojo, Bverde, etc As Integer - Declaracion Publica de las vairables del tipo Integer (numero Entero)
Private Sub Form_Load()
Brojo = 0
Bverde = 0
Bazul = 0
Frojo = 255
Fverde = 255
Fazul = 255
lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)
lblCuadro.ForeColor = RGB(Frojo, Fverde, Fazul)
End Sub
Aqui se asigna los valores a las variables
al cargar el Form y ademas se aplican los colores con RGB
Private Sub optColor_Click(Index As Integer)
If Index = 0 Then 'Se pasa a cambiar el fondo
Frojo = hsbColor(0).Value
Fverde = hsbColor(1).Value
Fazul = hsbColor(2).Value
hsbColor(0).Value = Brojo
hsbColor(1).Value = Bverde
hsbColor(2).Value = Bazul
Else 'Se pasa a cambiar el texto
Brojo = hsbColor(0).Value
Bverde = hsbColor(1).Value
Bazul = hsbColor(2).Value
hsbColor(0).Value = Frojo
hsbColor(1).Value = Fverde
hsbColor(2).Value = Fazul
End If
End Sub
Aqui obviamente se trata de una estructura condicional IF, para altenar si se cambia el color del fondo o el texto de primer plano.
Usa la propiedad Index en una matrix de un control Option, en dependencia del valor la estructura IF selecciona uno u otro.
Salud2