Private Sub MDIForm_Load()
   With TreeView1
       .Nodes.Add , , "book", "图书信息管理"
       .Nodes.Add "book", tvwChild, "add_bookinfo", "添加图书信息"
       .Nodes.Add "book", tvwChild, "modiffy_bookinfo", "修改图书信息"
       .Nodes.Add "book", tvwChild, "search_bookinfo", "查询图书信息"
       .Nodes("book").Expanded = True
      
      
        .Nodes.Add , , "student", "学生信息管理"
       .Nodes.Add "student", tvwChild, "add_studentinfo", "添加学生信息"
       .Nodes.Add "student", tvwChild, "modiffy_studentinfo", "修改学生信息"
       .Nodes.Add "student", tvwChild, "search_studentinfo", "查询学生信息"
       .Nodes("student").Expanded = True
      
      
      
              
       .Nodes.Add , , "management", "管理员信息管理"
       .Nodes.Add "management", tvwChild, "add_managementinfo", "添加管理员信息"
       .Nodes.Add "management", tvwChild, "modiffy_managementinfo", "修改管理员信息"
       .Nodes.Add "management", tvwChild, "search_managementinfo", "查询管理员信息"
       .Nodes("management").Expanded = True
      
      
       .Nodes.Add , , "borrow", "图书借出信息管理"
       .Nodes.Add "borrow", tvwChild, "add_borrowinfo", "添加学生借书信息"
       .Nodes.Add "borrow", tvwChild, "modiffy_borrowinfo", "修改学生借书信息"
       .Nodes.Add "borrow", tvwChild, "search_borrowinfo", "查询学生借书信息"
       .Nodes("borrow").Expanded = True
      
      
       .Nodes.Add , , "back", "图书归还信息管理"
       .Nodes.Add "back", tvwChild, "add_backinfo", "添加学生归还信息"
       .Nodes.Add "back", tvwChild, "modiffy_backinfo", "修改学生归还信息"
       .Nodes.Add "back", tvwChild, "search_backinfo", "查询学生归还信息"
       .Nodes("back").Expanded = True
    End With
End Sub

Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)------->错误指向这句（提示：子程序或函数未定义）
   Select Case Node.Text
   Case "添加图书信息"
       add_bookinfo_Click
   Case "修改图书信息"
       modify_bookinfo_Click
   Case "查询图书信息"
       search_bookinfo_Click
      

   Case "添加学生信息"
       add_studentinfo_Click
   Case "修改学生信息"
       modify_studentinfo_Click
   Case "查询学生信息"
       search_studentinfo_Click
      
      
   Case "添加管理员信息"
       add_managementinfo_Click
   Case "修改管理员信息"
       modify_managementinfo_Click
   Case "查询管理员信息"
       search_managementinfo_Click
      
      
   Case "添加学生借书信息"
       add_borrowinfo_Click
   Case "修改学生借书信息"
       modify_borrowinfo_Click
   Case "查询学生借书信息"
       search_borrowinfo_Click
      
      
   Case "添加学生归还信息"
       add_backinfo_Click
   Case "修改学生归还信息"
       modify_backinfo_Click
   Case "查询学生归还信息"
       search_backinfo_Click
   End Select
End Sub
这段程序哪里有问题呀？帮我改一下吧！我没有学过vb，只是实训时老师要我们用vb做界面！