Imports System.ComponentModel
Public Class uctext
    Implements System.ComponentModel.INotifyPropertyChanged
 
    Dim WithEvents tb As New TextBox With {.Parent = Me, .Dock = DockStyle.Fill}
 
    Public Event PropertyChanged(ByVal sender As Object, _
               ByVal e As PropertyChangedEventArgs) _
           Implements INotifyPropertyChanged.PropertyChanged
 
    Dim settext As String = ""
 
    <Bindable(True)> _
    Public Property ucText() As String
        Set(ByVal value As String)
            If value <> settext Then
               RaiseEvent PropertyChanged _
                 (Me, New PropertyChangedEventArgs("ucText"))
            End If
            tb.Text = value
            settext = value
        End Set
        Get
            Return tb.Text
        End Get
    End Property
 
    Private Sub tb_KeyDown(ByVal sender As Object, _
       ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb.KeyDown
        If e.KeyCode = Keys.Enter Then
          RaiseEvent PropertyChanged _
           (Me, New PropertyChangedEventArgs("ucText"))
          settext = tb.Text   
        End If
    End Sub
End Class