部
      Focuskey = ""
      '设置根结点
      Set TmpNode = TreeView1.Nodes.Add(, , "a0", "部门信息", 1, 3)
      TmpNode.Selected = True
      TmpNode.ExpandedImage = 2
      '调用函数将所有部门添加到TreeView1中
      Call Add_DepToTree(TreeView1, "a0")
      '调用TreeView1_Click过程，读取当前节点数据
      TreeView1_Click
    End Sub
    
    Private Sub TreeView1_Click()
      Dim Focuskey As String
      '根据关键字获取部门信息
      Focuskey = TreeView1.SelectedItem.Key
      CurDep.DepName = TreeView1.SelectedItem.Text
      CurDep.DepId = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
      
      If Focuskey = "a0" Then '根结点
        Exit Sub
      End If
      '如果包含子结点，则设置图像格式
      If CurDep.HaveSon(CurDep.DepId) = False Then
        TreeView1.SelectedItem.ExpandedImage = 4
        TreeView1.SelectedItem.Image = 4
        TreeView1.SelectedItem.SelectedImage = 5
      End If
      '读取CurDep中的所有部门信息
      CurDep.GetInfo (CurDep.DepId)
    End Sub