Private Sub Command1_Click()
Dim myKey As String
Dim i As Integer
    For i = 1 To 10
    myKey = "Person Nr. "&Str(i)
    TreeView1.Nodes.Add , 0, myKey, myKey ' ROOT
    TreeView1.Nodes.Add myKey, tvwChild, , "Wohnort: " 
    TreeView1.Nodes.Add mykey, tvwChild, , "Adresse: "
    Next i
End Sub