Evvaiiii! Risolto!

Ho poi creato un pulsante che quando clicco, mi crea un font. La sintassi è questa:

codice:
                
Dim fnt_size = CSng(fsize.Text)
Dim fnt As New Font(fonts.Text, fnt_size, GraphicsUnit.Point)
txt.Font = fnt
Dove txt è la RichText, fonts è la Combo con la lista dei font e fsize è la Combo della grandezza del font.