Private Sub Form_Load()
Dim myNod As Node
Set myNod = TreeView1.Nodes.Add(, tvwChild, "richeng", "日程安排")
Set myNod = TreeView1.Nodes.Add("richeng", tvwChild, "zao", "早")
Set myNod = TreeView1.Nodes.Add("richeng", tvwChild, "wan", "晚")
Set myNod = TreeView1.Nodes.Add("zao", tvwChild, "zao1", "早1")
Set myNod = TreeView1.Nodes.Add("wan", tvwChild, "wan1", "晚1")
End Sub
我想实现的效果是在以上代码的基础上用select case 实现  单击 "日程安排" 跳转到窗体A
单击 "早" 跳转到窗体B
 代码应该怎么写啊？我真是到处找资料都没找到能用的例子才来这里请教的，谢谢！
  

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

    Select Case Node.Text
        Case "日程安排"
            Form2.Show
        Case "早"
            Form3.Show
        Case "晚"
            Form4.Show
    End Select
End Sub

谢谢大哥

学习了~~·

学习中