Public Sub CreateMyRichTextBox()

Dim richTextBox1 As New RichTextBox()

        richTextBox1.Dock = DockStyle.Fill

        richTextBox1.LoadFile("C:\MyDocument.rtf")

        richTextBox1.Find("Text", RichTextBoxFinds.MatchCase)

        richTextBox1.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)

        richTextBox1.SelectionColor = Color.Red

        richTextBox1.SaveFile("C:\MyDocument.rtf", RichTextBoxStreamType.RichText)

Me.Controls.Add(richTextBox1)

End Sub