Dim names As New System.ComponentModel.BindingList(Of String)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ListBox1.DataSource = names
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If TextBox1.Text = String.Empty Then Return
        names.Add(TextBox1.Text)
    End Sub

    Dim names(-1) As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ListBox1.DataSource = names
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If TextBox1.Text = String.Empty Then Return
        ReDim Preserve names(names.Length)
        names(names.Length - 1) = TextBox1.Text
        ListBox1.DataSource = names
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist