这好象是treeview控件本身就有的呀，不要写什么代码的呀，我装的treeview都是这样的，不知道你具体的意思是什么。

Expanded 属性

这个属性返回或设置一个值，该值确定在 TreeView 控件中的 Node 对象当前是被展开的还是被折叠的。

语法

object.Expanded[= boolean]

Expanded 属性的语法包含下面部分：

t部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
boolean 布尔表达式，其值指定该节点是被展开的还是被折叠的。 


boolean 的设置值是：

设置值 描述 
True 该 Node 当前被展开。 
False 该 Node 当前被折叠。 


说明

可以使用 Expanded 属性编程展开 Node 对象。以下代码与双击第一个 Node 的作用相同：

TreeView1.Nodes(1).Expanded = True

在 Node 对象被展开时，Expand 事件发生。

如果一个 Node 对象没有子节点，则该属性值被忽略。

将singlesel属性设置为true就行了:


SingleSel属性     
返回或设置一个值，指定项目被选中时是否展开。

在VB6+SP5中通过.