Imports System.ComponentModel

Partial Public Class cBindingElement
    Implements INotifyPropertyChanged


    Public Sub New()
        ' Me.Focus()

    End Sub


    Public Propvalue As String
    Public Property _value As String
        Get
            Return Propvalue
        End Get
        Set(v As String)
            Propvalue = v
            OnPropertyChanged("_value")
        End Set
    End Property


    Public Event PropertyChanged As PropertyChangedEventHandler _
     Implements INotifyPropertyChanged.PropertyChanged

    Protected Sub OnPropertyChanged(ByVal name As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name))
    End Sub

  
End Class


Public Class ItemInfo
    Implements System.ComponentModel.INotifyPropertyChanged

    Private _itemNumber As String = "rename"
    Public Property ItemNumber As String
        Get
            Return _itemNumber
        End Get
        Set(value As String)
            _itemNumber = value
            RaiseEvent PropertyChanged(Me,
                New System.ComponentModel.PropertyChangedEventArgs("ItemNumber"))
        End Set
    End Property

    Public Event PropertyChanged(sender As Object,
        e As System.ComponentModel.PropertyChangedEventArgs) _
        Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
End Class