Structure TreeNodeTag
    Public FilePath As String
    Public Info As String
End Structure

TreeView1.Nodes(0).Nodes.Add(New TreeNode("Project 2") With {.Tag = New _
  TreeNodeTag With {.FilePath = "Project 1", .Info = "Test2"}})

lb_Tag.Text = CType(e.Node.Tag, TreeNodeTag).FilePath
lb_Tag2.Text = CType(e.Node.Tag, TreeNodeTag).Info

Imports System.ComponentModel
 
Public Class TreeviewEx
    Inherits System.Windows.Forms.TreeView
 
 
    <Browsable(True), Description("Pfadangabe")> 
    Public Property FilePath As String
 
    <Browsable(True), Description("Zusatzinformationen")> 
    Public Property Info As String
 
End Class

Dim Tv as TreeNode
Tv.Info

TreeView1.SelectedNode.Info

Public Class TreenodeEx
    Inherits System.Windows.Forms.TreeNode
 
    Public Property Filepath As String = ""
    Public Property Info As String = ""
 
End Class

Dim trv As New TreeView
 
trv.Nodes.Add(New TreenodeEx With 
     {.Name = "Node 0", .Text = "Node 0", .Info = "was auch immer"})
 
Dim tn As New TreenodeEx With 
     {.Name = "Subnode 0", .Text = "Subnode 0", .Info = "irgendetwas}"}
 
trv.Nodes.Item(0).Nodes.Add(tn)

Dim tn_ex As TreenodeEx = DirectCast(trv.Nodes(0), TreenodeEx)