Private Sub WriteTextToRichTextBox()
   ' Clear all text from the RichTextBox;
   richTextBox1.Clear()
   ' Set the font for the opening text to a larger Arial font;
   richTextBox1.SelectionFont = New Font("Verdana", 16)

   ' Assign the introduction text to the RichTextBox control.
   RichTextBox1.SelectedText = "Lets make this text in Verdana, and in Green" + Environment.NewLine

   'Set the color
   richTextBox1.SelectionColor = Color.Green;

   ' Set the Font for the first item to a smaller size Arial font.
   richTextBox1.SelectionFont = New Font("Arial", 12)

   ' Set the color of the item text.
   richTextBox1.SelectionColor = Color.Red

   ' Assign the text to the bulleted item.
   richTextBox1.SelectedText = "Here is some more text that is Arial and Red" + Environment.NewLine

   ' Apply same font since font settings do not carry to next line.
   richTextBox1.SelectionFont = New Font("Tahoma", 12)
   richTextBox1.SelectionColor = Color.Orange
   richTextBox1.SelectedText = "And one last bit of text in Tahoma and Orange" + Environment.NewLine

End Sub