Dim oStream As IO.StreamReader
        Dim sLine As String
        Dim sfilename As String = Application.StartupPath & _
          "/Settings/Adressen.txt"
        oStream = New IO.StreamReader(sfilename)
        Do
            sLine = oStream.ReadLine()
            If IsNothing(sLine) Then Exit Do
            Dim Einträge As New ToolStripMenuItem(sLine)
            MenuStrip1.Items.Add(FavoritToolStripMenuItem)
            FavoritToolStripMenuItem.DropDownItems.Add(Einträge)
            ' FavoritToolStripMenuItem.Image = ""
            Me.Controls.Add(MenuStrip1)
            Me.MainMenuStrip = MenuStrip1
        Loop
        oStream.Close()