Option Explicit
Private Sub Form_Load()
Show
RichTextBox1.LoadFile (App.Path & "\001.rtf")
DoEvents
RichTextBox1.LoadFile (App.Path & "\杨乐.txt")

End Sub

方法：双击“001.rtf”，（只看见一个回车符号），选中它，用“Word”工具栏设置它的行距、字符间距、

字体、字号等等。保存好就行了。

这个文件自己用“Word”建立也很容易：仅一个回车，设置好行距等等之后，保存为“.rtf”格式就可以了。