changing userform label control's color dynamically

[Ouka]

edit - file test.xlsm attached

I'm trying to change label text colors dynamically in a user form based on the value of a checkbox.

Objects:

checkbox: chkTest
label: lblTest
textbox: txtTest

I set label's forecolor in the control's property to red (H000000FF) then run the following code:

Private Sub chkTest_Change()

If chkTest.Value = True Then
    lblTest.ForeColor = H0000FF00 'should change text to green if true
    txtTest.Value = "On - Green"
    
ElseIf chkTest.Value = False Then
    lblTest.ForeColor = H00FF0000 'should change text to blue if false
    txtTest.Value = "Off - Blue"
End If

End Sub

On initialization of the form, the label's text is properly red.

But on chkbox click, the text turns black once and never changes again. The txtbox updates its value properly.

What am I doing wrong?

What I want to do is have a large section of one of my userforms to activate and change color if a particular checkbox is true. If False, then the controls are disabled and are greyed out.

Thanks!

[:) Sixthsense :)]

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[Ouka]

added the file at top of original post

[Mr_Bill]

Something like this? Will change the checkbox forecolor

Private Sub chkTest_Click()
    If chkTest.Value = True Then

            Controls("chkTest").ForeColor = RGB(0, 255, 0)
    ElseIf chkTest.Value = False Then
            Controls("chkTest").ForeColor = RGB(0, 0, 255)

    End If
End Sub

This will change the label

Private Sub chkTest_Click()
    If chkTest.Value = True Then

            Controls("lblTest").ForeColor = RGB(0, 255, 0)
    ElseIf chkTest.Value = False Then
            Controls("lblTest").ForeColor = RGB(0, 0, 255)

    End If
End Sub

[:) Sixthsense :)]

Replace your current code with the below one

Private Sub chkTest_Change()

If chkTest.Value Then
    lblTest.ForeColor = 65280
    lblTest.Caption = "Green"
    txtTest.Value = "On - Green"
Else
    lblTest.ForeColor = 16711680
    lblTest.Caption = "Blue"
    txtTest.Value = "Off - Blue"
End If

End Sub

[Ouka]

doh. I tried the excel pallet color, color name, and color index. i didn't try rgb or the long number form of the colors. apparently either of those would have actually worked. Thanks guys, feeling stupid now ~_~ way too many hours in front of this screen apparently...