使用API改变树型框背景颜色

' Private Declare Function SendMessage Lib "user32" Alias "Send MessageA" (ByVal hwnd As Long,ByVal wMsg As Long, ByVal wParam As Long,ByVal lParam As Long) As Long

' Const TV－FIRST = ＆H1100

' Const TVM－SETBKCOLOR = TV_FIRST ＋ 29

' 然后再作如下调用：

' Call SendMessage(TreeView1.hwnd, TVM－SETBKCOLOR, 0, RGB(255, 0, 0))

' 上面的SendMessage调用将TreeView1的背景颜色设置为红色。