hierzu brauchst Du das CommonDialog-Control. Für das Beispiel nimmst Du am Besten ein neues Projekt und setzt eine RichtTextBox auf die Form. Diese RichTextBox stattest Du mit einem Menü "Schriftart" und einem Untermenü Schrift, mnuSchrift, aus, außerdem brauchst Du noch das CommonDialog-Control. Dann fügst Du folgenden Code ein:

Private Sub mnuSchrift_Click()
    attribute_ändern RichTextBox1
End Sub
 
Sub attribute_ändern(c As RichTextBox)
    If Not IsNull(c.SelColor) Then CommonDialog1.Color = RichTextBox1.SelColor
    CommonDialog1.Flags = &H103
    CommonDialog1.Action = 4
    If Not IsNull(CommonDialog1.Color) Then
        RichTextBox1.SelColor = CommonDialog1.Color
    End If
End Sub

Wenn Du jetzt das Beispiel testest, kannst Du ein Wort markieren, über das Menü den Schrift-Dialog aufrufen und die Farbe ändern. Auf die Art und Weise kannst Du auch Schrift fett, unterstrichen, kursiv, etc. darstellen, ebenso die Schriftart oder -größe ändern, je nachdem welche Attribute Du vorgibst.

cu
Moni