如何在treeview下面添加多个节点[今天没分了请原谅]

[crazymanonly]

我想在VB下面添加一个根节点“职工基本情况”
下面添加四个子节点
分别是“姓名”“性别”“年龄”“民族”
请问这样的代码该怎么写啊
Dim nodX As Node
Dim i As Integer
Dim j As Integer

TreeView1.LineStyle = tvwRootLines
Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "性别")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "年龄")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "民族")

结果运行到添加性别的时候就出错了
请各高手指教

[crazymanonly]

谢谢

[SmokerX]

Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "姓名")
Set nodX = TreeView.Nodes.Add(1, tvwChild, , "性别")
--------------------------
为何前一行是TreeView1，后一行是TreeView？

[fishmans]

Private Sub Form_Load()
'设置 Treeview 控件属性。
TreeView1.LineStyle = tvwRootLines ' Linestyle 1

'添加 Node 对象。
Dim nodX As Node '声明 Node 变量。
'带有文本 'Root' 的第一个节点。
Set nodX = TreeView1.Nodes.Add(, , "r", "Root")

'下一个节点是节点 1 ("Root") 的子节点。
Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")

End Sub

[zgvslch]

Set nodX = TreeView1.Nodes.Add(, , "r", "职工基本情况")
Set nodX = TreeView1.Nodes.Add("r", tvwChild,"name" , "姓名")
Set nodX = TreeView.Nodes.Add("r", tvwChild, "sex", "性别")
Set nodX = TreeView.Nodes.Add("r", tvwChild, "age", "年龄")
Set nodX = TreeView.Nodes.Add("r", tvwChild, "nation", "民族")