'Funktioniert
    <Browsable(True), Bindable(True)> _
    Public Overrides Property Text() As String
        Get
            Return MyBase.Text
        End Get
        Set(ByVal value As String)
            MyBase.Text = value
        End Set
    End Property
 
'Funktioniert nicht
    Dim teststring As String = ""
 
    <Browsable(True), Bindable(True)> _
    Public Property TestText() As String
        Get
            Return teststring
        End Get
        Set(ByVal value As String)
            teststring = value
        End Set
    End Property