vb子程序或函数问题！请各位帮帮忙！
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做界面！
