Private lst As New BindingList(Of TestClass)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        lst(ListBox1.SelectedIndex).Name = TextBox1.Text
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 10
            lst.Add(New TestClass("Name" & i))
        Next
        ListBox1.DisplayMember = "Name"
        ListBox1.DataSource = lst
    End Sub

Public Class TestClass
    Implements INotifyPropertyChanged
    Public Event PropertyChanged(ByVal sender As Object, ByVal e As _
      System.ComponentModel.PropertyChangedEventArgs) Implements _
      System.ComponentModel.INotifyPropertyChanged.PropertyChanged
 
    Private mName As String
 
    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal value As String)
            mName = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Name"))
        End Set
    End Property
 
    Public Sub New(ByVal name As String)
        mName = name
    End Sub
 
End Class