Dim _FontColor As Color = Color.Black
 
    Public Overrides Property ForeColor() As Color
        Get
            Return _FontColor
        End Get
        Set(ByVal Value As Color)
            _FontColor = Value
        End Set
    End Property

mfgMeik MillerMein beste Code:If then