<System.ComponentModel.DefaultValue(1.0!), System.ComponentModel.Description( _
  "Ist die Eingabe eines Wertes erforderlich?")> _
    Public Property MussEingabe() As Boolean
        Get
            Return m_MussEingabe
        End Get
        Set(ByVal value As Boolean)
            m_MussEingabe = value
        End Set
    End Property

    Public Sub New()
        If m_MussEingabe Then
            MyBase.BackColor = Color.Red
        Else
            MyBase.BackColor = Color.Yellow
        End If
    End Sub