Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e _
      AsSystem.Windows.Forms.TreeNodeMouseClickEventArgs) Handles _
      TreeView1.NodeMouseClick
        Dim n As TreeNode = e.Node
 
        Dim s As String = String.Empty
 
        Dim ec As Integer
        While True
            ec = 1
            While n.PrevNode IsNot Nothing
                ec += 1
                n = n.PrevNode
            End While
            If s <> String.Empty Then s = "." & s
            s = ec.ToString() & s
            n = n.Parent
            If n Is Nothing Then Exit While
        End While
 
        Debug.WriteLine("Node levels: " & s)
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist