Public Sub ListBox_Save(ByVal ListBox As ListBox, _
     ByVal sFile As String)
 
        ' Inhalt einer ListBox speichern
        Dim oStream As IO.StreamWriter
        Dim i As Short
 
        oStream = New IO.StreamWriter(sFile)
 
        For i = 0 To ListBox.Items.Count - 1
            oStream.WriteLine(ListBox.Items(i))
        Next
        oStream.Close()
    End Sub
 
    Public Sub ListBox_Read(ByVal ListBox As ListBox, _
      ByVal sFile As String)
 
        ' Inhalt einer ListBox speichern
        Dim oStream As IO.StreamReader
        Dim sLine As String
 
        ' ListBox löschen
        ListBox.Items.Clear()
 
        ' Existsiert die Datei?
        Dim oFile As New IO.FileInfo(sFile)
 
        If oFile.Exists() = True Then
            oStream = New IO.StreamReader(sFile)
            ' Datei zeilenweise auslesen
            Do
                sLine = oStream.ReadLine()
                If IsNothing(sLine) Then Exit Do
                ListBox.Items.Add(sLine)
            Loop
            oStream.Close()
        End If
    End  Sub