Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button8.Click
        For i As Integer = 0 To ComboBox1.Items.Count - 1
            On Error Resume Next
            My.Settings.Lesezeichen.Add(ComboBox1.Items(i).Text)
        Next
        My.Settings.Save()
        MsgBox("Favorit gespeichert!")
 
    End Sub

Public Class Favoriten
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub Favoriten_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        For Each item As String In My.Settings.Lesezeichen
            ListBox1.Items.Add(item)
        Next
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        On Error Resume Next
        My.Settings.Lesezeichen.Remove(ListBox1.SelectedItem.ToString())
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        For i As Integer = 0 To ListBox1.Items.Count - 1
            My.Settings.Lesezeichen.Add(ListBox1.Items(i).Text)
        Next
        My.Settings.Save()
    End Sub
 
    Private Sub Form1_Leave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Leave
        On Error Resume Next
        My.Settings.Lesezeichen.Remove(My.Settings.Lesezeichen.ToString)
        My.Settings.Lesezeichen.Add(ListBox1.Items.ToString)
    End Sub
 
End Class