对RichTextBox使用setScrollInfo函数失效！

Question

窗体上有一个RichTextBox，现在希望滑动条的范围和其中文本的行数相匹配，下面是读取文件的函数：
Public Function LoadFile(f As File) As Boolean
    rtbText.LoadFile f.Path, rtfText
    Dim si As SCROLLINFO
    si.cbSize = Len(si)
    si.nMax = SendMessage(rtbText(1).hwnd, EM_GETLINECOUNT, ByVal 0, ByVal 0)
    si.nMin = 1
    si.fMask = SIF_RANGE
    SetScrollInfo rtbText.hwnd, SB_VERT, si, True
End Function
可是执行时只有开始时是正确的，一旦滑动滑块，就会回到设置之前的范围，大概是13000，请教各位高手，这是啥原因？这个API函数是这样用吗？

Answer 1

si.nMax = SendMessage(rtbText(1).hwnd, EM_GETLINECOUNT, ByVal 0, ByVal 0)
应该是:
si.nMax = SendMessage(rtbText.hwnd, EM_GETLINECOUNT, ByVal 0, ByVal 0)
吧?