Public Class TextBoxEx
    Inherits TextBox
 
    Public Enum YesNo
        No
        Yes
    End Enum
 
    Private _Pflichtfeld As YesNo 
 
    <System.ComponentModel.Browsable(True)> _
    Public Property Pflichtfeld() As YesNo
        Set(value As YesNo)
            _Pflichtfeld = value
        End Set
        Get
            Return _Pflichtfeld
        End Get
    End Property
 
 
    Private _pattern As String = "" 'hier ggf. einen Defaultwert setzen
 
    <System.ComponentModel.Browsable(True)> _
    Public Property Pattern() As String
        Set(value As String)
            'Hier ggf. den zuzuweisenden Wert auf Gültigkeit prüfen
            _pattern = value
        End Set
        Get
            Return _pattern
        End Get
    End Property
 
 
    Private Sub InitializeComponent()
        Me.SuspendLayout()
        Me.ResumeLayout(False)
 
    End Sub
End Class