s Long = &amp;H6
Private Const TVGN_PREVIOUSVISIBLE    As Long = &amp;H7
Private Const TVGN_DROPHILITE         As Long = &amp;H8
Private Const TVGN_CARET              As Long = &amp;H9
Private Const GWL_STYLE As Long = (-16)
Private Declare Function InvalidateRectAsNull Lib "user32" Alias
 "InvalidateRect" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As
 Long) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function LockWindowUpdate Lib "use