IS_CUT = &amp;H4
Private Const TVIS_BOLD  As Long = &amp;H10
Private Const TV_FIRST As Long = &amp;H1100
Private Const TVS_TRACKSELECT As Long = &amp;H200&amp;
Private Const TVS_FULLROWSELECT As Long = &amp;H1000
Private Const TVS_SINGLEEXPAND  As Long = &amp;H400
Private Const TVM_GETNEXTITEM As Long = (TV_FIRST + 10)
Private Const TVM_GETITEM As Long = (TV_FIRST + 12)
Private Const TVM_SETITEM As Long = (TV_FIRST + 13)
Private Const TVM_SETBKCOLOR As Long = (TV_FIRST + 29)
Private Const TVM_SETTEXTCOLOR A