Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        For Each item As String In ListBox1.Items
            My.Settings.ListBox1List.Add(item)
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If My.Settings.ListBox1List Is Nothing Then
            My.Settings.ListBox1List = New Specialized.StringCollection
        End If
        For Each item As String In My.Settings.ListBox1List
            ListBox1.Items.Add(item)
        Next
    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