Private Sub RichTextBoxEx1_SelectionChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles RichTextBoxEx1.SelectionChanged
        Dim sf As Font = Me.RichTextBoxEx1.SelectionFont
        If sf Is Nothing Then
            ComboBox1.Enabled = False
        Else
            ComboBox1.Enabled = True
            Dim sz As String = sf.Size.ToString()
            If Not ComboBox1.Items.Contains(sz) Then
                ComboBox1.Items.Add(sz)
            End If
            ComboBox1.Text = sz
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist