'Stream-Settings
    Private Sub EigeneSenderToolStripMenuItem_MouseHover(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      EigeneSenderToolStripMenuItem.MouseHover
        Try
            Dim Reader As New System.IO.StreamReader(Application.StartupPath + _
              "\streamdata.xml", Encoding.Default)
            Dim Zeile As String = Reader.ReadLine()
            Dim Element() As String
            EigeneSenderToolStripMenuItem.DropDownItems.Clear()
            While Zeile <> Nothing
                Element = Split(Zeile, " ¿ ")
                EigeneSenderToolStripMenuItem.DropDownItems.Add(Element(0))
                Zeile = Reader.ReadLine()
            End While
            Reader.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Info")
        End Try
    End Sub