Public Class MyNode : Inherits TreeNode
 
   Private m_MeinWochentag As String = ""
 
   Public Sub New(ByVal Text As String)
      MyBase.New()
      Me.Text = Text
   End Sub
 
 
   Public Property Wochentag() As String
      Get
         Return m_MeinWochentag
      End Get
      Set(ByVal value As String)
         m_MeinWochentag = value
      End Set
   End Property
 
 
End Class
 
 
'Knoten hinzufügen
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim tn As New MyNode("Test")
      tn.Wochentag = "Freitag"
      TreeView1.Nodes.Add(tn)
   End Sub

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio