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 Const WM_VSCROLL = &H115
----
'скролить вверх
Call SendMessage(Text1.hwnd, WM_VSCROLL, 0, 0)
'вниз
Call SendMessage(Text1.hwnd, WM_VSCROLL, 1, 0)
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.