给段源代码好么？

Question

Dim nodex As Node, son_node As Node, ss_node As NodeDim n As Long, nn As Long, nnn As Integer
TreeView1.Nodes.Add , , "Boot", "Boot"
For n = 1 To 3
    Set nodex = TreeView1.Nodes.Add("Boot", tvwChild, "son_" & Str(n), "son_" & Str(n))
        For nn = 4 To 9
            Set son_node = TreeView1.Nodes.Add(nodex.Key, tvwChild, "ss_son" & Str(nn) & Str(n), "s_son" & Str(nn))
            son_node.EnsureVisible
            For nnn = 0 To 3
               Set ss_node = TreeView1.Nodes.Add(son_node.Key, tvwChild, "ss_son_s" & Str(nn) & Str(n) & Str(nnn), "ss_son" & Str(nn))
            Next nnn
        Next
     nodex.EnsureVisible
Next