SCroll 与api

Option Explicit

Public Const EM_SCROLL = &HB5
Public Const SB_LINEUP = 0
Public Const SB_LINEDOWN = 1
Public Const SB_PAGEUP = 2
Public Const SB_PAGEDOWN = 3

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

----------

Option Explicit

Private Sub Command1_Click()
    SendMessage Text1.hwnd, EM_SCROLL, SB_PAGEUP, ByVal 0&
End Sub

Private Sub Command2_Click()
    SendMessage Text1.hwnd, EM_SCROLL, SB_LINEUP, ByVal 0&
End Sub

Private Sub Command3_Click()
    SendMessage Text1.hwnd, EM_SCROLL, SB_LINEDOWN, ByVal 0&
End Sub

Private Sub Command4_Click()
    SendMessage Text1.hwnd, EM_SCROLL, SB_PAGEDOWN, ByVal 0&
End Sub