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
 
Const WM_VSCROLL = &H115
Const SB_LINEUP = 0
Const SB_LINEDOWN = 1
 
Private Sub Command1_Click()
 
  Call SendMessage(Text1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0)
 
End Sub

Gruss,

Zardoz