checkboxların arka plan rengi

[öğrtm]

iyi günler
benim bir userform üzerinde 5 adet checkbox um var.yapmaya çalıştığım şey bunların değeri true ise backcoloru yeşil false ise kırmızı olması.hangi olaya yazacağımı söyleyebilirseniz sevinirim.
ben şöyle bir çalışma yaptım olmadıchangeyide denedim)

Private Sub CheckBox_Click()
Dim a As byte
For a = 1 To 5
If Controls("checkbox" & a).Value = True Then
Controls("checkbox" & a).BackColor = vbGreen
Else
Controls("checkbox" & a).BackColor = vbRed
End If
Next a
End Sub

 

[hamitcan]

1-Class Module içine aşağıdaki kodu yerleştirin.

Public WithEvents Chk As MSForms.CheckBox

Private Sub Chk_Click()
    If Chk.Value = True Then
        Chk.BackColor = vbGreen
           Else
        Chk.BackColor = vbRed
    End If
End Sub

2-Userform içine aşağıdaki kodu yerleştirin.

Dim Chk() As New Class1

Private Sub UserForm_Initialize()
    ReDim Preserve Chk(5)
    For X = 1 To 5
    Set Chk(X).Chk = Controls("checkbox" & X)
    Next
End Sub

 

[öğrtm]

teşekkürler

sayın hamitcan yardımlarınız için çok teşekkür ederim