Public Class Form1
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        speichern()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Laden()
    End Sub
    Private Sub speichern()
        Dim sw As New System.IO.StreamWriter(Application.StartupPath & _
          "\test.txt")
        For Each item As String In ComboBox1.Items
            sw.WriteLine(item)
        Next
        sw.Close()
    End Sub
    Private Sub Laden()
        If System.IO.File.Exists(Application.StartupPath & "\test.txt") Then
            Dim SR As New System.IO.StreamReader(Application.StartupPath & _
              "\test.txt")
            Do Until SR.EndOfStream
                ComboBox1.Items.Add(SR.ReadLine)
            Loop
            SR.Close()
        End If
    End Sub
End Class

Gru?

Silver