我想让打开的文档的字可以从左向右慢慢一行一行的打开到我的RichTextBox1上，直到这个文档所有行都显示完

Question

就是我点open的菜单，会打开一个.txt的文档，我想让打开的文档的字可以从左向右慢慢一行一行的打开到我的RichTextBox1上，直到这个文档所有行都显示完，这个文档就静止的显示在RichTextBox1上
我的编码
Private Sub open_Click()CommonDialog1.Filter = "all file(*.*)|*.*|text(*.txt)|*.txt"
CommonDialog1.FilterIndex = 2 '初始类型为文本文件
CommonDialog1.ShowOpen
RichTextBox1.LoadFile (打开.FileName)
'将文件打开到文本框中显示
End Sub
请帮我修改

Answer 1

'先读到字符串
dim str1 as string
Open 打开.FileName For Input As 1
str1 = Strconv(InputB$(LOF(1), 1), vbUnicode)
close 1'然后从字符串中逐字或逐行选取，延时赋值给RichTextBox1.selRTF