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