关于 自动滚动的问题2

Question

每次读取一行，循环读取：
Private Sub Command1_Click()
'假设要读者要读取 Text1 第 5 行的数据，可以利用以下语句：
Dim S As String
Call TB_GetLine(Text1.hWnd, 5, S)
'传回值S即等于第5行的数据。
End Sub
Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)
Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long
    lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
    length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
    If length > 0 Then
    ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
    Call RtlMoveMemory(bArr(0), length, 2)
    Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
    Call RtlMoveMemory(bArr2(0), bArr(0), length)
    Line = StrConv(bArr2, vbUnicode)
    Else
    Line = ""
    End If
End Sub

Answer 1

 我是问 怎样控制 滚动的速度，