activeX树控件问题，（treeview）高手指点

Question

Expand 事件（TreeView 控件）
      在 TreeView 控件中的 Node 对象扩展开时，也就是它的子节点变成可视时，这个事件便发生。语法Private Sub object_Expand(ByVal node As Node)Expand 事件的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
node 对展开的 Node 对象的引用。 
说明Expand 事件发生在 Click 和 DblClick 事件之后。Expand 事件的产生有三种方式：其一，双击带有子节点的 Node 对象；其二，将 Node 对象的 Expanded 属性设置为 True；其三，单击 ＋/－ 图像。使用 Expand 事件使一个对象有效，如以下例子所示：Private Sub TreeView1_Expand(ByVal Node As Node)
   If Node.Index <> 1 Then
      Node.Expanded = False   '阻止扩展。
   End If
End Sub