[VB.NET] Treeview à partir d'un fichier texte

ça donnerait à peu près ceci :

AjouterUnNoeud(1, "Toto")
AjouterUnNoeud(1, "titi")
AjouterUnNoeud(2, "tata")
AjouterUnNoeud(2, "tutu")
AjouterUnNoeud(3, "blabla")
AjouterUnNoeud(2, "bobo")
AjouterUnNoeud(1, "keke")

Private Sub AjouterUnNoeud(ByVal pniveau As Integer, ByVal psTexte As String)   
    'noeud racine ou 1er appel : ajout à la suite à la racine !
    If pniveau <= 1 Or TreeView1.Nodes.Count <= 0 Then
        TreeView1.Nodes.Add(psTexte)
        Exit Sub
    End If

    Dim node As TreeNode
    'recup du dernier noeud racine ajouté
    node = TreeView1.Nodes(TreeView1.Nodes.Count - 1)
    'recup du dernier parent du niveau juste supérieur à celui à ajouter
    For i As Integer = 1 To pniveau - 2
        If node.Nodes.Count > 0 Then
        node = node.Nodes(node.Nodes.Count - 1)
        End If
    Next
    'ajout du nouveau noeud enfant
    node.Nodes.Add(psTexte)
End Sub

ça donne ça : (si l'image passe bien)


Note : la fonction est un peu "brute", reste à ajouter les tests, etc. ...