Private Sub ChangeFont_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnChangeFont.Click Dim Police As System.Drawing.Font FontDialog1.ShowDialog() Police = FontDialog1.Font RichTextBox1.SelectionFont = Police End Sub
RichTextBox1.Text = "salut word hihihi" RichTextBox1.Select(6, 4) RichTextBox1.SelectionColor = Color.Blue