Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Int16 = 0 To 10
'添加一级节点代码...
Dim OneTr As New TreeNode
OneTr.Text = i
Me.TreeView1.Nodes.Add(OneTr)
For n As Int16 = 0 To 10
' 添加二级节点代码...
Dim TwoTr As New TreeNode
TwoTr.Text = n
OneTr.Nodes.Add(TwoTr)
MsgBox(OneTr.Index & "--" & TwoTr.Index)
Next
Next