Overrides Property Text() As String
        Get
            Return str_Text
        End Get
        Set(ByVal Value As String)
            str_Text = Value
            Me.txtAnzeige.Text = Value
        End Set
    End Property
 
    Shadows Property Text() As String
        Get
            Return str_Text
        End Get
        Set(ByVal Value As String)
            str_Text = Value
            Me.txtAnzeige.Text = Value
        End Set
    End Property

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)