Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim CTR As Control
'---
For Each CTR In Me.Controls
If InStr(1, CTR.Name, "CheckBox") > 0 Then
If CTR = True Then
CTR.ForeColor = RGB(0, 175, 50)
Else
CTR.ForeColor = RGB(0, 0, 0)
End If
End If
Next CTR
End Sub