Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim fntDefault As New Font("Times New Roman", 15.0F, FontStyle.Italic) Me.RichTextBox1.Font = fntDefault Me.RichTextBox1.Dock = DockStyle.Fill Me.RichTextBox1.ShowSelectionMargin = True Me.RichTextBox1.ShortcutsEnabled = True Me.RichTextBox1.WordWrap = False Me.RichTextBox1.ScrollBars = RichTextBoxScrollBars.ForcedBoth Me.RichTextBox1.LanguageOption = RichTextBoxLanguageOptions.UIFonts Me.RichTextBox1.Rtf = <![CDATA[{\rtf1\ansi\ansicpg932\deff0\deflang1033 {\fonttbl {\f0\fnil\fcharset0 Times New Roman;} {\f1\fnil\fcharset128 \'82\'6c\'82\'72 \'83\'53\'83\'56\'83\'62\'83\'4e;} } \viewkind4\uc1\pard \sl0\slmult1\i\f0\fs36\tx950\tab 6x\super 2\nosupersub +7x-3\line\pard \sl16\slmult0 f(x)=\lang1041\i0\f1\'84\'9f\'84\'9f\'84\'9f\'84\'9f\lang1033\i\f0\line\pard \sl16\slmult0\tx1200\tab 2x+3\par }]]>.Value End Sub End Class