Private Sub rtfBox_SelectionChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles rtfBox.SelectionChanged
 
        If Not rtfBox.SelectionFont Is Nothing Then
 
            CmbFontGr.Text = rtfBox.SelectionFont.Size
            CmbFontAr.Text = rtfBox.SelectionFont.FontFamily.Name
            lblColor.BackColor = rtfBox.SelectionColor
 
            If rtfBox.SelectionFont.Italic = True Then
                CmdKursiv.Checked = True
            Else
                CmdKursiv.Checked = False
            End If
 
            If rtfBox.SelectionFont.Bold = True Then
                CmdFett.Checked = True
            Else
                CmdFett.Checked = False
            End If
 
            If rtfBox.SelectionFont.Underline = True Then
                CmdUnter.Checked = True
            Else
                CmdUnter.Checked = False
            End If
 
        Else
 
            CmbFontGr.Text = ""
            CmbFontAr.Text = ""
 
        End If
 
        If rtfBox.SelectionBullet = True Then
            CmdEinzug.Checked = True
        Else
            CmdEinzug.Checked = False
        End If
 
    End Sub