Private Sub Form_Load() RichTextBox1.TextRTF = "{\rtf1\fbidis\ansi\ansicpg1252\deff0{\fonttbl{\f0\froman\fprq2\fcharset0 Arial;}{\f1\froman\fprq2\fcharset178{\*\fname Times New Roman;}Times New Roman (Arabic);}}\viewkind4\uc1\pard\rtlpar\qr\lang1025\b\f0\rtlch\fs24 \par }" End Sub