treeview问题

Private Sub Form_Load()
  TreeView1.LineStyle = tvwTreeLines '在兄弟节点和父节点之间显示线
  Set nodX = TreeView1.Nodes.Add(, , "蒲子明", "蒲子明")
  Set nodX = TreeView1.Nodes.Add("蒲子明", tvwChild, "child01", "收件箱")
  Set nodX = TreeView1.Nodes.Add("蒲子明", tvwChild, "child02", "发件箱")
 
End Sub
结果只出现蒲子明三个字，子节点没有显示。这是为什么呢？
--------------------编程问答-------------------- expand --------------------编程问答--------------------

补充：VB ,  控件