'scrollbalken De-/Aktivieren
Public Declare Function ShowScrollBar Lib "User32" _
    (ByVal hWnd As Long, ByVal wBar As Long, _
    ByVal bShow As Long) As Long
Public Const SB_VERT = 1
Public Const SB_HORI = 0
 
'Vertikaler Scrollbalken an/aus
ShowScrollBar Me.TreeView.hwnd, SB_VERT, False
 
'Horizontaler Scrollbalken an/aus
ShowScrollBar Me.TreeView.hwnd, SB_HORI, False

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&
 
'Nach Links Scrollen
SendMessage Me.TreeView.hwnd, WM_VSCROLL, SB_LINELEFT, 0&
 
'Nach Rechts Scrollen
SendMessage Me.TreeView.hwnd, WM_VSCROLL, SB_LINERIGHT, 0&