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