Imports System
    Imports System.Web
    Imports System.Web.UI
    Imports System.Collections.Specialized

    Namespace MeineEigenenSteuerelemente
       Public Class EigenesSteuerelement3 : Inherits Control : Implements IPostBackDataHandler
          public Event TextGeandert(obj as object, e as eventargs)
          protected sub OnTextGeandert(e as EventArgs)
             RaiseEvent TextGeandert(Me, e)
          end sub

          Public Function UebertragungsdatenLaden(PostDataKey As String, Values As NameValueCollection) As Boolean Implements IPostBackDataHandler.LoadPostData
             dim strAlterWert as String = Me.Meldung
             dim strNeuerWert as String = Values(postDataKey)
             if not strAlterWert = strNeuerWert
                Me.Meldung = strNeuerWert
                return true
             end if
             return false
          End Function

          Public Sub UebertragungsdatenGeaendertEreignisAusloesen() Implements IPostBackDataHandler.RaisePostDataChangedEvent OnTextGeandert(EventArgs.Empty)
          end sub

          public property Meldung as string
             Get
                Meldung = ViewState("Meldung").ToString
             End Get
             Set
                ViewState("Meldung") = value
             End Set
          end property

          Protected Overrides Sub Render(Output as HtmlTextWriter)
             Output.Write("<input name=" & Me.UniqueID & _
                " type=text value=""" & Me.Meldung & """>")
          End Sub
       End Class

    End Namespace