¡Resolución de problemas de programación VB!

Debe declarar a como una variable a nivel de módulo; de lo contrario, a en cada proceso no está relacionado entre sí. El valor de a modificado en un proceso no se cambiará en otro proceso. Deberías hacer esto:

Atenuar un como entero

Private Sub CmdFont_Click()

a = 0

CmdFont.Enabled = False

CmdBack.Enabled = True

hsbRed.Value = rojo2

hsbGreen.Value = verde2

hsbBlue.Value = azul2

End Sub

Private Sub Form_Load()

a = 1

Atenuar rojo1, rojo2, verde1, verde2, azul1, azul2 como entero

rojo1 = 0

rojo2 = 0

verde1 = 0

verde2 = 0

azul1 = 0

blue2 = 0

CmdFont.Enabled = True

CmdBack.Enabled = False

End Sub

Private Sub hsbBlue_Change()

Si a = 1 Entonces

LblBlue.Caption = "Valor del componente azul:" amp; RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)

blue1 = hsbBlue.Value

Else

LblBlue.Caption = "Valor del componente azul: "& hsbBlue.Value

TxtShow.ForeColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)

blue2 = hsbBlue.Value

Fin Si

End Sub

.....se omite a continuación