Private Sub leseFontUndSizeUnterCaret()
        Dim tmpStyle As FontStyle
        Dim farbe As Color = Color.LightSalmon
        Dim tmpRegular As Boolean = True
 
        If LCase(IO.Path.GetExtension(dateiname)) = ".rtf" Then
 
           If tsc_TextEditor_RTFBox.SelectionFont IsNot Nothing Then
 
                ' Schriftschnitt anzeigen
 
                ' hier gekürzt... 
 
                ' Schriftart und Schriftgrösse
                Dim schriftgrösse As Integer = Int( _
                  tsc_TextEditor_RTFBox.SelectionFont.Size + 0.5)
                aktSelectedRTFFont = New Font( _
                tsc_TextEditor_RTFBox.SelectionFont.FontFamily.Name, _
                schriftgrösse, tsc_TextEditor_RTFBox.SelectionFont.Style)
                aktselectedRTFColor = tsc_TextEditor_RTFBox.SelectionColor
 
                Debug.Print("`" & aktSelectedRTFFont.FontFamily.Name & "´ - " & _
                  aktSelectedRTFFont.Style.ToString & " - " & schriftgrösse & "" & _
                  "- " & aktselectedRTFColor.ToString)
 
                sym_TextEditor_Format_cob_Schriftart.Text = _
                  aktSelectedRTFFont.FontFamily.Name
                sym_TextEditor_Format_cob_Schriftgrösse.Text = Int( _
                tsc_TextEditor_RTFBox.SelectionFont.Size + 0.5)
 
                ' Schriftfarbe
                sym_TextEditor_Format_Schriftfarbe.BackColor = _
                  tsc_TextEditor_RTFBox.SelectionColor
            End If
        End If
    End Sub