使用Treeview控件，有错误，请帮忙。Public Sub MakeTree(tvwX As TreeView)
 Dim nodX As Node
 Dim sNodeKey As String
 Dim sRelative As String
 Dim MsgText As String
 txtSQL = "select * from 系部"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 '添加系
 Do Until mrc.EOF
 sNodeKey = "X" & mrc("系部代码").Value
 Set nodX = tvwX.Nodes.Add(, , sNodeKey, mrc("系部名称").Value)
 nodX.Tag = "系"
 mrc.MoveNext
 Loop
 mrc.Close
 txtSQL = "select * from 专业"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 '添加专业
 Do Until mrc.EOF
 sNodeKey = "X" & mrc("专业代码").Value
 sRelative = Mid$(sNodeKey, 1, 3)
 Set nodX = tvwX.Nodes.Add(, , sNodeKey, mrc("专业名称").Value)
 nodX.Tag = "专业"
 mrc.MoveNext
 Loop
 mrc.Close
 txtSQL = "select * from 班级"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 '添加班级
 Do Until mrc.EOF
 sNodeKey = "X" & mrc("班号").Value
 sRelative = Mid$(sNodeKey, 1, 5)
 Set nodX = tvwX.Nodes.Add(, , sNodeKey, mrc("班级名称").Value)
 nodX.Tag = "班级"
 mrc.MoveNext
 Loop
 mrc.Close
 Set tvwX.SelectedItem = tvwX.Nodes(1)
 Set mrc = Nothing
 Set nodX = Nothing
 End Sub
 Private Sub Form_Load()
 Call comboAddItem(Combo2, "班级", 0)
 Call comboAddItem(Combo3, "系部", 0)
 Call MakeTree(TreeView1)
 End Sub
 代码是这样写的，可是显示的时候不分层啊，老是一下子全部显示出来了！请大家帮忙，

在 Visual Basic 6.0 中，TreeView 控件的 SingleSel 属性用来确定在节点选中时是否展开以显示其子节点。如果将此属性设置为 True，则在选中节点时展开该节点，并折叠起先前选择的节点。

在 Visual Basic 2008 中，不再存在 SingleSel 属性。默认情况下，在单击节点时不会展开节点（默认情况相当于在 Visual Basic 6.0 中将 SingleSel 设置为 False）。可以使用 AfterSelect 事件来确定是否选择了某个节点，然后使用 Expand 或 Collapse 方法控制展开行为。

Image 和 SelectedImage 属性
在 Visual Basic 6.0 中，可以将 SelectedImage 属性分配给 TreeView 控件节点，而不用分配 Image 属性。

在 Visual Basic 2008 中，TreeView 控件的 TreeNode 对象在没有 Image 属性的情况下，不能具有 SelectedImage 属性。如果需要模拟 Visual Basic 6.0 的行为，可以将一个空图像分配给 Image 属性。