'Läd die Themen
        Dim sr As New StreamReader(Application.StartupPath & "\meinfile.txt", _
          System.Text.Encoding.Default)
        Dim line As String = sr.ReadLine()
        Do While Not (line Is Nothing)
            ' Trim and make sure the line isn't blank.
            line = line.Trim()
            If line.Length > 0 Then _
                themen.Items.Add(line)
            ' Get the next line.
            line = sr.ReadLine()
        Loop

        Dim stream As New StreamReader(Application.StartupPath & _
          themen.SelectedItem & ".dat")
        Dim datei As String = stream.ReadToEnd
        code.Text = datei

 Dim stream As New StreamReader