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

Private Sub CheckBox1_CheckStateChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles CheckBox1.CheckStateChanged
        CheckboxFarbe()
    End Sub