在VB中更改ToString时，对象上的ListBox不更新

' 创建一个类来表示对象
Public Class MyObject
    Public Property Name As String

    Public Overrides Function ToString() As String
        Return Name
    End Function
End Class

' 在窗体中使用ListBox和按钮
Public Class Form1
    Private objects As List(Of MyObject)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 初始化对象集合
        objects = New List(Of MyObject)()

        ' 将ListBox的DataSource属性绑定到对象集合
        ListBox1.DataSource = objects
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建一个新的对象并添加到集合中
        Dim newObj As New MyObject()
        newObj.Name = "New Object"
        objects.Add(newObj)

        ' 手动刷新ListBox的显示
        ListBox1.Refresh()
    End Sub
End Class