Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _
  As Long
Public Const WM_VSCROLL = &H115
Public Const WM_HSCROLL = &H114
Public Const SB_LINEDOWN = 1
Public Const SB_LINEUP = 0
Public Const SB_LINELEFT = 0
Public Const SB_LINERIGHT = 1
 
'Nach unten Scrollen
SendMessage Me.TreeView.hwnd, WM_VSCROLL, SB_LINEUP, 0&
 
'Nach oben Scrollen
SendMessage Me.TreeView.hwnd, WM_VSCROLL, SB_LINEDOWN, 0&