如何改变TreeView控件字体的颜色?

[Wilson]

如何改变TreeView控件字体的颜色?
大虾帮帮忙我!!我觉得能够改变字体的颜色和背景的颜色,
窗体的界面会美观点,但我不知道如何下手.
请各位大虾帮帮我,
谢谢~~~~~~~~~~~

[AustinLei]

Private Sub Form_Load()
'设置 Treeview 控件属性。
TreeView1.LineStyle = tvwRootLines ' Linestyle 1

'添加 Node 对象。
Dim nodX As Node '声明 Node 变量。
'带有文本 'Root' 的第一个节点。
Set nodX = TreeView1.Nodes.Add(, , "r", "Root")
nodX.ForeColor = vbRed
nodX.BackColor = vbGreen

'下一个节点是节点 1 ("Root") 的子节点。
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")
nodX.ForeColor = vbRed
nodX.BackColor = vbGreen

End Sub

[lihonggen0]

Private Sub Form_Load()
TreeView1.Nodes.Add , "R", "root", "root"
TreeView1.Nodes.Add "root", tvwChild, "key1", "aa"
TreeView1.Nodes.Add "key1", tvwChild, "key11", "ccc"

TreeView1.Nodes.Add "root", tvwChild, "key2", "bb"
TreeView1.Nodes.Add "key2", tvwChild, "key21", "ddd"
TreeView1.Nodes.Add "key2", tvwChild, "key211", "eee"
TreeView1.Nodes(3).ForeColor = RGB(200, 210, 255)
TreeView1.Nodes(3).BackColor = vbBlue
For I = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(I).Expanded = True
Next

End Sub

[lihonggen0]

Private Sub Form_Load()
TreeView1.Nodes.Add , "R", "root", "root"
TreeView1.Nodes.Add "root", tvwChild, "key1", "aa"
TreeView1.Nodes.Add "key1", tvwChild, "key11", "ccc"

TreeView1.Nodes.Add "root", tvwChild, "key2", "bb"
TreeView1.Nodes.Add "key2", tvwChild, "key21", "ddd"
TreeView1.Nodes.Add "key2", tvwChild, "key211", "eee"
TreeView1.Nodes("key2").ForeColor = vbRed
TreeView1.Nodes("key2").BackColor = vbYellow
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).ForeColor = vbRed
TreeView1.Nodes(i).BackColor = vbYellow
TreeView1.Nodes(i).Expanded = True
Next

End Sub

[Wilson]

那我想改变TreeView控件的整个背景要
如何做呢?
以上的只是改变了字体和字体的部分背景,
但看上去不是整个背景的颜色是一致的,
能做到背景颜色一致吗?
谢谢~~~~再帮我一把!

[lihonggen0]

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=7273
http://www.dapha.net/down/list.asp?id=1112
http://www.dapha.net/down/list.asp?id=800