treeview创建根节点和子节点孙节点

Private Sub Command1_Click()
Dim nodX As Node
Dim i As Integer
Dim j As Integer
TreeView1.LineStyle = tvwRootLines
For i = 1990 To 2009
Set nodX = TreeView1.Nodes.Add(, , , i & "年")
Next

For i = 1 To 12
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , i & "月")
Next
nodX.EnsureVisible

j = CStr(Month(Now))
Set nodX = TreeView1.Nodes.Add(20 + j, tvwChild, , CStr(Day(Now)) & "日")

End Sub