利用EM_LINESCROLL信息控制TextBox的卷動

在含有卷動軸的 TextBox 中， 如何以程序控制 TextBox 的卷動？傳送 EM_LINESCROLL 信息給 TextBox 控制文件，方法是調(diào)用 SendMessage API 函數(shù)，細節(jié)如下：
    1. API 的聲明：
    Const EM_LINESCROLL = &HB6
    Private Declare Function SendMessageBynum Lib "user32" Alias "
    SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As
    Long, ByVal lParam As Long) As Long
    注：如果以上的聲明放在「一般模塊」底下， 應在 Const 之前加上 Public 保留字， 并且將 Declare 之前的 Private 保留字去掉。
    2. 調(diào)用范例：
    ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, 1 ) ’ 下卷一行
    ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, -1 ) ’ 上卷一行
    ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 0) ’ 右卷一列
    ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, -1, 0) ’ 左卷一列
    ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 1 ) ’ 下卷一行且右 卷一列
    注：以上的 Text1 為 TextBox 的名稱。