Aggiungere i seguenti elementi:
-FontDialog1
-ColorDialog1
-RichTextBox1
________________________________________________________

'Apri la finestra del FontDialog
Me.FontDialog1.ShowDialog(Me.RichTextBox1)
'Metti che il carattere selezionato si applichi
Me.RichTextBox1.Font = Me.FontDialog1.Font
________________________________________________________

'Apri la finestra del ColorDialog
Me.ColorDialog1.ShowDialog(Me.RichTextBox1)
'Metti che il colore selezionato si applichi
Me.RichTextBox1.ForeColor = Me.ColorDialog1.Color