TreeView变背景色
*---------------
TreeView 5.0：无 Checkboxes 功能
假设 TreeView 控件的 Name 值为 OleTreeView5，然后在表单的 Init 事件加代码：
#Define TVM_SETBKCOLOR 4381
Declare Long SendMessage In User32 Long HWnd,Long wMsg,Long wParam,Long Lparam
=SendMessage(Thisform.OleTreeView5.HWnd,TVM_SETBKCOLOR,0,Rgb(200,200,255))
TreeView 6.0：每个层节点的最后一个节点下方还是有一部分白色的，美中不足。
假设 TreeView 控件的 Name 值为 OleTreeView6，然后在表单的 Init 事件加代码：
m.lnTreeBackColor=Rgb(200,200,255) &&要改成此颜色
#Define TVM_SETBKCOLOR 4381
Declare Long SendMessage In User32 Long HWnd,Long wMsg,Long wParam,Long Lparam
=SendMessage(Thisform.OleTreeView6.HWnd,TVM_SETBKCOLOR,0,m.lnTreeBackColor)
For m.lnI=1 To Thisform.OleTreeView6.Nodes.Count
Thisform.OleTreeView6.Nodes(m.lnI).BackColor=m.lnTreeBackColor
Endfor
