Private Sub CheckboxFarbe()
        Dim chkb As Object
        For Each chkb In Me.Controls
            If TypeOf chkb Is CheckBox Then
                If chkb.CheckState = 1 Then
                    chkb.ForeColor = System.Drawing.Color.Red
                Else
                   chkb.ForeColor = System.Drawing.Color.Empty
                End If
            End If
        Next
    End Sub