'zunächst die benötigten API-Deklarationen
Private Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
  ByVal wParam As Integer, ByVal lParam As Long) As Long
 
'die Konstanten wurden etwas geändert, du musst aber noch schaun (apiviewer), 
' ob diese auch wirklich stimmen - vielleicht heißen die beiden unteren auch 
' LINETOP/LINEBOTTOM. Außerdem stimmen die Werte sicher nicht
 
Const WM_VSCROLL = &H114
Const SB_LINEUP= 1
Const SB_LINEDOWN = 0
 
Private Function fScrollUP()
  Dim lRet As Long
  lRet = SendMessage(Text1.hwnd, WM_VSCROLL , _
    SB_LINEUP, ByVal 0&)
End Function
 
Private Function fScrollDown()
  Dim lRet As Long
  lRet = SendMessage(Text1.hwnd, WM_VSCROLL , _
    SB_LINEDOWN , ByVal 0&)
End Function
 
Private Sub Form_Load()
  Text1.Text = "Test Textbox automatisch " + _
    "scrollen by www.Visual-Basic5.de"
End Sub
 
Private Sub Command1_Click()
  'links scrollen
  fScrollUp
End Sub
 
Private Sub Command2_Click()
  'links scrollen
  fScrollDown
End Sub