Private Sub Form_Load()
    Dim n As Integer
    Dim m As Integer
    Dim xNode As Node
    Dim yNode As Node
 
    For n = 1 To 3
        Set xNode = TreeView1.Nodes.Add(, , "Eintrag" & n, "Eintrag" & n)
        For m = 1 To 3
            Set yNode = TreeView1.Nodes.Add(xNode, tvwChild, "Eintrag" & n & m, _
              "Untereintrag" & m)
            Next m
        Next n
End Sub