Imports System.Drawing.Drawing2D
Imports System.ComponentModel
 
Public Class csCheckBox : Inherits System.Windows.Forms.CheckBox
 
Private _Color As CheckedColor = New CheckedColor
 
    Public Overridable Property CheckedColor() As CheckedColor
        Get
            Return _Color
        End Get
        Set(ByVal Value As CheckedColor)
            _Color = Value
 
        End Set
    End Property
 
End Class
 
Public Class CheckedColor
 
#Region " Variablen "
 
    Private _CheckedColor As Color
    Private _BorderColor As Color
 
#End Region
 
    Public Property CheckedColor() As Color
        Get
            Return _CheckedColor
        End Get
        Set(ByVal Value As Color)
            _CheckedColor = Value
        End Set
    End Property
 
 Public Property BorderColor() As Color
        Get
            Return _BorderColor
        End Get
        Set(ByVal Value As Color)
            _BorderColor = Value
        End Set
    End Property
 
#Region " Konstruktor "
 
    Public Sub New()
        _BorderColor = Color.Black
        _CheckedColor = Color.Blue
    End Sub
#End Region
End Class