Private Sub cob_TextEditor_Schriftgrösse_SelectedIndexChanged(sender As _
      Object, e As EventArgs) Handles _
      sym_TextEditor_cob_Schriftgrösse.SelectedIndexChanged
            If LCase(IO.Path.GetExtension(dateiname)) = ".txt" Then
                ' Bei Text-Datei ganzen Text umformatieren
                tsc_TextEditor_RTFBox.Font = New Font( _
                  sym_TextEditor_cob_Schriftart.Text, _
                  sym_TextEditor_cob_Schriftgrösse.Text)
                My.Settings.SchriftTextEditorFont = New Font( _
                sym_TextEditor_cob_Schriftart.Text, CInt( _
                sym_TextEditor_cob_Schriftgrösse.Text))
            Else
                ' Bei RTF-Datei nur selektierten Text umformatieren
                If tsc_TextEditor_RTFBox.SelectionFont IsNot Nothing Then
                    ' alle Zeichen identisch formatiert
                    tsc_TextEditor_RTFBox.SelectionFont = New Font( _
                      tsc_TextEditor_RTFBox.SelectionFont.FontFamily, CInt( _
                      sym_TextEditor_cob_Schriftgrösse.SelectedItem), _
                      tsc_TextEditor_RTFBox.SelectionFont.Style)
                Else
                    ' Selektion mit unterschiedlicher Formatierung
                    ' ???
                End If
            End If
        end sub